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PREFACE 


The Amstrad CPC464 is one of the most exciting 
home computers to be launched in 1984. It has already 
found wide acceptance by those who find excellent value 
for money coupled with a highly usable language and 
operating system to their taste. Micro-computers' by 
their nature are complex and very soon enquiring minds 
start asking questions as to how parts of it really 
work. Understanding never comes easily and we at Kuma 
hope that this book will help answer many of the 
questions first raised and point the way to your own 
"Explorations". 


Tim Moore 


September 1984 


Kuma Computers Ltd. 
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INTRODUCTION 


Welcome to the world of the Amstrad CPC464! This 
interesting and powerful system has attracted very 
favourable reviews since it first appeared earlier this 
year. Not surprising, because it offers excellent 
value for money, combining as it does a great number of 
facilities in a neat and tidy package. 


This book is intended to appeal to all users and 
potential users of the Amstrad system, of whatever 
level of skill. It is designed to amplify the 
information supplied in the system handbook. Rather 
than merely reproducing, though, the facts given in 
that handbook, this book concentrates on some of the 
more unusual aspects of the system, and in particular 
on two of the major features, the graphics and _ the 


sound. Many program examples are given so that’ the 
reader can try out the techniques mentioned for 
himself. 


The interest and value of home computing lies in 
expanding one’s knowledge and skill. There is no point 
in copying large amounts of code without understanding 
what the writer was aiming at. So this book aims to 
explain WHY things work, not just WHAT to enter. This 
should enable the reader to build on the programs here, 
to write his own games, and to improve on the examples 
given. The author believes that games should not be 
sneered at, they can prove very educational providing 
that the user probes behind the jokey facade. 


If your interests lie beyond games, however, Part 
V which covers the entry of a complete Home Accounting 
program will be of interest. It shows the capability 
of the Amstrad to handle serious applications. 


2 tapes are available from Kuma Computers’ to 


accompany this book. Tape 1 consists of 3 programs, 
the Sound Harness program from chapter 9, and the 2 
games given in chapters 12 and 13. Tape 2 consists of 


the Home Accounting program. Purchase of these will 
save you a lot of keying! The tapes are unprotected so 
that you can modify the source if you wish. 


John Braga. 
September 1984. 
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NOTE 


Some of the sample programs in this book are 
printed using an English character-set daisy-wheel so 
that the “hash” sign prints as a £. When copying those 
programs on the Amstrad keyboard you should use the 
hash not the €£ key. 
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PART | 


GETTING 


ACQUAINTED 
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This part contains an overview of the 
features of the Amstrad, and should be 
taken as a prerequisite to the other parts. 
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CHAPTER 1 
THE AMSTRAD FACILITIES 


In this chapter we give an overview of the Amstrad 
system and introduce the features that will be covered 
in depth in later chapters. 


RAM Galore! 


The Amstrad has a generous memory. Gone are the 
days when home computers had to make do with 1 or 2k of 
RAM. You now have a full 64k to wallow in. This 
statement does not perhaps mean much in itself. It is 
not uncommon for a so-called 64k system to offer in 
fact very considerably less to the user once the system 
has grabbed all the working storage it needs! Not so 
with this one, where the user has some 42k of space 
under BASIC, quite enough for some man-sized programs 
as we shall see. Some systems sneakily omit to mention 
that the use of high-resolution graphics means that 
large chunks of precious memory are hived off for use 
by the screen. But the Amstrad uses a constant 16k 
regardless of the resolution, so there is no memory 
penalty involved in choosing a high resolution. 


In fact, you get more than a full 64k, because 
there are two 16k ROMS (or one 32k ROM to be quite 
correct) provided in addition which house the operating 
system and the BASIC interpreter itself. Since the 280 
can address only 64k, a technique is provided whereby 
the ROMS can be made to ‘appear’ or ‘disappear’ as 


required. The memory layout is: 
BASIC 
Interpreter 


FFFF 
Screen 


C000 


ACOO 


Available 
for 
BASIC 


4000 


Operating 
System 


0040- |. ee 
0000 System Use 
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The ‘paging’ of ROMS is normally completely 
invisible to the BASIC programmer. When you PEEK any 
address, the ROMS are made invisible so that you see 
only the RAM. 


More than a basic BASIC... 


The BASIC is a comprehensive implementation, with 
many interesting features. As well as the normal 
facilities you would expect, it is expanded to handle 
graphics, sound, and even to allow multi-tasking. 
Unlike some other systems, where programmers have to 
resort to PEEKs and POKEs every time they want to do 
anything at all interesting, Amstrad BASIC programs are 
remarkably readable. 


The BASIC has clearly been designed to handle the 
hardware facilities available, rather than being added 
on later as an afterthought. As a result you should 
very rarely find it necessary to enter assembler in 
order to use system facilities - nearly all are 
available from the main language. This makes it a very 
suitable system for the newcomer to computing. 


And it is fast. Fast enough for many games, even 
those involving animation, to be programmed directly in 
BASIC - though obviously the judicious use of assembler 
subroutines can always add an extra touch of _ speed. 
The Assembler environment is discussed in Part IV, and 
both of the games in Part III use assembler subroutines 
for some screen handling. 


Youve programmed Before? 


I said above that the Amstrad is an excellent 
system for beginners to computing. But there is no 
reason why the experienced programmer need feel his 
style cramped. Amstrad seems to be unusual in that it 
is already making available full details of the system 


via a Technical Manual. This describes the operating 
system interface in some depth, and is’ essential 
reading for the serious enthusiast. It is in fact 


remarkably easy to program in machine code on _ the 
Amstrad since one can make constant use of the’ system 
functions provided. This will also make it easy for 
software houses to provide additional dedicated 
programs such as word-processors and spread-sheets. 
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Flexible Keyboard System. 


The keyboard is a standard commercial layout, 
comfortable to use for long periods and including a 
full numeric pad. And if you do not like the layout 
provided you can change it, for every key can be ‘soft- 
programmed” to change its value. You can even decide 
whether or not you like auto-repeat, and if so _ how 
fast. Nor are you restricted to the large character 
set supplied, for you can design your own’ characters 
with ease, ranging from a few monsters for an arcade 
game to an entire new alphabet if you wish. More of 
that later. 


A single key can also be used to invoke a sequence 
of several characters, the so-called function key 
feature. 


Cassettes are Fine for Hi-Fi... 


Most users of cassette systems start saving up for 
disks as soon as they can. Cassettes are frankly less 
than ideal for computer storage, being very slow and 
unreliable in comparison to floppy disks. But the 
Amstrad cassette is built in, and I have had no 
problems with read errors. There is no tone-control to 
fiddle with, and the volume control acts merely as a 
monitor so you that you can hear the program being 
read or written if you wish. The lack of trailing 
cables and separate units is a real blessing. Most 
users will have only a single power-cable connected to 
the colour or black and white monitor. Neat! 


Amstrad adds a useful feature in that the user can 
select to save programs at double speed if he wishes - 
at 2000 bps instead of 1000. It is true that there is 
an increased risk of read errors at the higher’ speed, 
but the use of good quality tapes (Cl2 or c30 
preferred) should help to avoid problems. I always use 
the higher speed for normal use, and the lower’ speed 
when making backup copies. 
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How about the Screen? 


Windows (on the screen, that is) are very much in 


vogue at present in the microcomputer world. The 
Amstrad user can handle up to 8 text windows which can 
overlap in any fashion. In addition he has at his 
disposal a separate graphics window which can cover the 
whole screen area if desired. It is good to note also 
that there are no restrictions on mixing text and 
graphics in the one area. In general the graphics are 


such that sophisticated games are entirely possible, 
and the intelligent use of colour can make a_ very 
attractive user interface for serious applications. 


Talking of colours, the Amstrad offers 27, though 


not all can be seen on the screen at once. There is 
also a trade-off - colour-range versus degree of 
resolution. If you choose to have 80 columns on the 


screen (high resolution) you can have only 2. colours, 
if on the other hand you reduce the resolution as far 
as 20 columns you can have 16 colours on the screen. 


Most users will find the middle mode a 
satisfactory compromise - 4 colours and 40 columns. 


All 3 modes offer 25 rows. 


A Sound Choice! 


The Amstrad, perhaps conscious of its company’s 
speciality, has impressive sound capabilities. 3 
separate voices plus a noise channel are available and 
can be manipulated and synchronised to give very 
pleasing results. Once again all the features are 
available from BASIC, but the SOUND, ENVELOPE and ENT 
commands are very complex, and it is not easy to get 
the full effects without care and study, so Part II 
concentrates on showing what can be done in this area. 


Some other home computers also provide good sound 
facilities, but let themselves down with tinny internal 


speakers. The Amstrad has an outlet which can _ be 
connected to a stereo hi-fi system, thereby making the 
sound a good deal more impressive. But you can of 


course use the internal speaker if you wish. 
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What Next? 


Most users will want to expand their system. A 
printer is perhaps the first choice for many, and the 
system supports the attachment of an industry-standard 
Centronics-compatible unit, so you have a wide choice. 
Joy-sticks are an attractive acquisition for the games- 
player. Disk drives are a boon to the serious user, 
adding enormously to the speed and flexibility of the 
system. We must wait for these but Amstrad are likely 
to want to add them soon to take advantage of software 
available under CP/M. 


An alternative to disks is to add dedicated 


software in ROM. The Amstrad is designed to allow up 
to 240(!) additional 16k ROMs to be added via ROM 
expansion boards. Sideways ROMs (so called because 


they all occupy the same address space, so the system 
uses only one at a time, the others being made 
invisible) have proved very popular in the Acorn BBC 
system, and it is to be hoped that spreadsheets, word- 
processors, and other languages such as Pascal and 
Forth, will all be available for the Amstrad before too 
long. Amstrad have already published guidance for 
creating ROMS for the CPC464 system, an encouraging 
sign. 


You will see from the memory map earlier in this 
chapter, that there is a 16k BASIC ROM at the top of 
memory. It is this ROM which can be ‘overlaid’ by the 
sideways ROMS. The lower ROM containing the operating 
system is never overlaid. 


Roll on Pascal! 


Summary. 


As you can tell, I am impressed by this system 
which shows considerable care in design. The 
capabilities are such that it rewards careful study, so 
here goes... 
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CHAPTER 2 
A TOUR OF THE BASIC 


It is not the purpose of this book to teach you 
BASIC. There are after all many dozens of books on the 
market which can do that. It is not even its intention 
to teach you the elements of Amstrad BASIC, for which 
you should study the handbook’ supplied. In this 
chapter we assume you understand at least the 
fundamentals of BASIC, and therefore concentrate on 
covering some of the more unusual or complex features. 


Graphics and Sound commands are in general covered 
in later chapters rather than here. 


The version of BASIC most commonly available is 
Microsoft “s MBASIC, found on a variety of 8- and 16-bit 
systems. The Amstrad BASIC, developed by Locomotive 
Software, is a very comprehensive one, and has’ many 
features similar to MBASIC, so you should not encounter 
many difficulties should you wish to convert programs 
from one system to another. It also has_ several 
extensions to handle the Amstrad colour graphics and 
sound. 


The BASIC interpreter is a large one, occupying 
the upper 16k ROM. Its facilities are the equal of 
most commercial systems; there has been no paring of 
features just because this is primarily a home system. 
It has a rich range of string functions (including 
unusual ones’ like UPPERS and LOWERS), all the vital 
numeric functions, the ability to handle integers and 
reals, multi-dimensional arrays, and so on. It seems 
equally well adapted to writing serious commercial-type 
programs, arcade games, graph drawing, or helping with 
Maths homework. 


It is also particularly flexible in its use of the 


keyboard, so we devote the whole of the next chapter to 
covering the keyboard and the character set. 
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Structured Programming. 


There has been much attention given to this topic 
in recent years. The Amstrad BASIC offers the usual 
control structures FOR...NEXT, GOSUB...RETURN, ON X 
GOSUB and also adds the less usually found (but very 
useful) WHILE...WEND. It offers user functions - 
single line user functions only - but no procedures or 
local variables. 


While the omission of these structures is to be 
regretted, it could be argued that the inclusion of 
multitasking features more than compensates for their 
loss since it facilitates many structures that are 
difficult to program elegantly in less well-endowed 
BASICs. Multitasking is discussed later in this 
chapter. 


Cassette Files. 


One of the important elements any BASIC must 
handle is Input-Output. It is going to be interesting 
to see how the Amstrad BASIC is adapted for disk when 
that unit comes. Of course at present any talk of disk 
files is mere conjecture, and we must live with 
cassette. A cassette file is always sequential of 
course, and creation is simple. The following program 
writes 10 numbers to a tape file called NUMFILE and 
reads them back in again (for the hell of it): 


10 OPENOUT "NUMFILE"” 
20 FOR J = 1 TO 10 
30 WRITE #9, J 

40 NEXT J 

50 CLOSEOUT 

60 PRINT "NOW TO READ BACK THE DATA" 
70 OPENIN “NUMFILE" 
80 IF EOF THEN 150 
90 INPUT #9,J 

100 PRINT J 

110 GOTO 80 

150 CLOSEIN 

160 END 


Simple enough maybe, but there are several 
interesting points to observe. 


- File names can be up to 16 characters in length. 


(Names longer than this are truncated before being 
used). 
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- The usual way of putting data to a file is with a 
WRITE statement, though a PRINT could also be 
used. A WRITE is generally preferable since it 
writes data in such a way that INPUT will handle 
it in a straightforward fashion on return. 


- The ‘stream’ for cassette input and output is 
number 9, hence the ‘WRITE #9”. You need not 
write this as a constant. It may be useful, while 
debugging a program, to write: 


20 FILEOUT = 3 

30 WINDOW #3,30,40,1,5 

40 OPENOUT "NUMFILE" 

100 WRITE #FILEOUT, J, CUSNAME 


150 CLOSEOUT 


Here we will see the data written appearing on a 
small window at the top right of the screen. When 
all appears to be running satisfactorily line 20 
can be changed to FILEOUT = 9, and line 30 
deleted. 


In the above example lines 40 and 150 are only of 
use if line 20 references stream 9, but they do no 
harm. OPENOUT (or OPENIN) does have the effect, 
however, of causing a 4k buffer to be allocated and 
this is discussed further below. 


It may be reassuring to see messages on the screen 
while tape blocks are being read or written, but it may 
at times be inconvenient. Such messages can be 
suppressed by changing the name used in the OPENxx 
statement, for example: 


OPENOUT "!NUMFILE" 


The exclamation mark is not a part of the 
filename, but merely a signal to the operating system 
to avoid messing up your screen with tape messages. 


Incidentally you might at first think there is no 
verify command; some systems offer this so that you 
can check that what you have written to tape is 
actually readable while you still have the possibility 
of writing the data or program again! 
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It is true that the Amstrad has no explicit verify 
command, but it does offer the CAT command which reads 
the entire tape and displays the names of the programs 
or files it finds there. Not quite the same thing in 
that it is not comparing the data on the tape with data 
in memory, but the most important thing is that it 
verifies that the tape is readable. 


Programs on Tape. 


Of course, it is not only data files you will be 
storing on tape, but also programs. A simple: 


SAVE "PROG1" 


will save your masterpiece. There are then many 
ways it can be reloaded the next day. Among others: 


- LOAD "PROG1" will discard all other files found, 
if any, and will load PROGI. 


= RUN "PROG1" The program will be loaded, if 
found, and executed without further intervention. 

- MERGE "PROG1" will add PROG] to the existing 
program, if any, overwriting lines only when it 
needs to. Useful for building up a library of 
subroutines. 

= CHAIN "“PROG1" The current program is erased and 


PROG1 loaded and executed, but the variables of 
the current program are left intact and are 
therefore available to PROG]. 


- CHAIN MERGE "PROG1" works as CHAIN, except that 
the existing program is retained in whole or in 
part. 


= Do not forget you can always use CTRL and ENTER 
which is a quick way of typing RUN "". 


In summary we have all the facilities to link 
programs we could wish. 


It is not only BASIC programs that may be LOADed 
and SAVEd. Assembler subroutines can be loaded into an 
area of memory above BASIC. SAVE and LOAD are’ used 
with extra parameters that denote where the routine 
starts and ends. The same commands can also be used to 
handle tables such as in-memory indices. 


The whole subject of Assembler subroutines is 
covered further in Part IV. 
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Memory Layout. 


Mention has been made of BASIC requiring 4k for a 
cassette file buffer, and also of space allocated for 
subroutines. Both these requirements cause the amount 
of storage available to BASIC to be reduced, and _ the 
memory is taken from the top of the partition, in one 
case automatically (when OPENIN or OPENOUT is 
encountered) or in the other case through a_ user 
command MEMORY which adjusts the upper boundary. 


When first you start the system, space for use by 
the BASIC interpreter extends from &40 to S&AB7F, so 
HIMEM, which shows the highest byte available to BASIC 
has the value S&AB7F (or 43903, but it is more 
convenient, when discussing addresses to use 
hexadecimal notation). If you wish to leave a_ space 
free above BASIC for an assembler subroutine or _ some 
other purpose you use the MEMORY command to reserve 
what you need. Assume that you are loading a routine 
128 bytes long, which has been created to run at 
location &ABOO. 


10 MEMORY &AAFF 


or 


REM MOVE BASIC DOWN 
BELOW ROUTINE. 

REM LOAD ROUTINE. 
REM ADDRESS ROUTINE. 


20 LOAD "!SUB1" 
30 SUB] = &ABOO 


100 CALL SUB1 


ae 0 


Notice that the LOAD command does not affect the 
existing BASIC program since the routine has been saved 
as a binary file. In fact the saving would have been 
accomplished with a statement such as: 

SAVE "SUB1",B,&AB00,&80,&AB00 

which causes the start, length and entry point to 
be stored on the tape so that the LOAD can position the 
file in the correct place. 

If you only need the SUB1 routine temporarily you 
can regain the space later if you wish. If you add a 
statement such as: 

5 ORIGMEMORY = HIMEM 
and 
200 MEMORY ORIGMEMORY 


you will restore memory as it was. (Do not try to 
call SUB1 again though!) 
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The above showed how the top of BASIC space can be 
manipulated by the programmer. If the system needs 4k 
of memory because you open a cassette file it moves 
HIMEM down automatically as you will discover if you 
enter: 


PRINT HIMEM 
OPENOUT "TEST" 
PRINT HIMEM 


and gives the area back if it can when it has 
finished with it: 


CLOSEOUT 
PRINT HIMEM 


If however, you move HIMEM down after the 4k has 
been allocated by the system, it cannot move it’ back 
again when CLOSEOUT is encountered, so it keeps it! 


OPENOUT "TEST" 
PRINT HIMEM 
MEMORY HIMEM-1 
CLOSEOUT 

PRINT HIMEM 


The 4k may not be wasted, however, since if you 
subsequently open a cassette file, BASIC uses the same 
area rather that steal a new one. Still, you may 
prefer to allocate your subroutine area before opening 
any cassette files, and in this way the tape buffer 
will be released on closing the file. 


The MEMORY statement and the cassette buffer are 
not the only reasons for HIMEM being shifted, as we 
shall see in the next chapter, which also explains what 
the 128 bytes between &AB80 and SABFF are used for. 


Multitasking. 


We have left the most interesting part of this 
BASIC until the end of the chapter - multitasking. 


Normally a user program executes one routine at a 
time. The program starts at the first statement when 
you type RUN and proceeds until eventually it reaches 
the END statement. Obviously most programs contain 
leops since computers execute instructions at great 
speed, otherwise execution times, even of large 
programs, would be extremely short. 
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You expect the program to pause on occasion - for 
example to receive input from the keyboard - but you 
rely on it stepping in a predictable and serial fashion 
through the instructions. 


Of course the system interrupts your program from 
time to time. For example we know that interrupts 
occur every 20 milliseconds to refresh the screen in 
order to keep the display generated. And there are 
other system housekeeping chores that have to be done, 
like updating the TIME counter that acts as a_ system 
clock. 


The Amstrad BASIC allows the user to request that 
his main program be interrupted at time~intervals of 
his choice, for high-priority tasks to be serviced. 
Each task has a priority level, and a low priority task 
can be interrupted by a higher priority task. For 
example a program might be written: 


10 EVERY 100,0 GOSUB 3000 

20 CLS 

30): eee 

999 END 

3000 REM TASK RUNNING AT PRIORITY 0 
3.010! sce 

3999 RETURN 


The main program runs from 10 to 999. Statement 
10 causes a subtask to be created at priority level 0. 
This task may execute any instructions necessary, but 
should eventually reach statement 3999. 


After statement 10 the main program will probably 
never refer to the subtask again. It will proceed 
about its own business, knowing that the operating 
system has started a count down, and that the subtask 
will be executed every 2 seconds (the count is in 
50/ths of a second and we asked for 100). 


When the subtask receives control at statement 
3000 it knows it has total control until it 
relinquishes the reins of power at statement 3999, at 
which time the main program resumes its interrupted 
progress. Subtasks have higher priority than the 
background task. 


This is an extremely useful facility in all types 
of application. In a game we may well use it for 
moving figures round a screen at regular intervals (see 
the games in Part III), or for displaying and updating 
a clock on the screen: 
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2 ON BREAK GOSUB 3000 

3 CLS 

5 WINDOW #0,1,30,1,25 : WINDOW #1,31,40,25,25 
10 INPUT “Enter houra: minutes, seconds ", 

HOURS , MINS, SECS 

20 EVERY 50 GOSUB 2000 

30 FOR J = 1 TO 500 

40 PRINT J 

50 NEXT J 

60 GOTO 30 

2000 REM PRIORITY 0 TASK EVERY SECOND 

2005 SECS = SECS + 1 

2010 IF SECS = 60 THEN SECS = 0 : MINS = MINS 


+ 1 
2020 IF MINS = 60 THEN MINS = 0 : HOURS = 
HOURS + 1 


2030 IF HOURS = 25 THEN HOURS = 0 

2100 PRINT #3 USING "##:##:##";HOURS,MINS, 
SECS; 

2999 RETURN 

3000 REM BREAK ROUTINE 

3010 MODE 1 

3020 STOP 


The above program shows a rather boring main’ task 
at statements 5-60, a subtask at 2000-2999 and a 
routine at 3000 to intercept matters if you decide you 
have had enough. 


Of course you may decide that an interruption 
every second is an unnecessary overhead. In this case 
alter line 20 to EVERY 3000 rather than every 50, alter 
line 10 to input hours and minutes only, and _ remove 
seconds from the logic of the subtask. Then your clock 
will “tick” once a minute. 


There are two important points to note when 
constructing the above form of subtask: 


= Make sure the subtask and the main task do 
not unintentionally use the same variables. 
For example if the subtask altered variable J 
the results in the main task would be 
unpredictable! 
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= If you run the above program, then press ESC 
once only, the program pauses. If you press 
ESC again, a break occurs and the program 
ends. But if you press SPACE the program 


continues. Do that after a 10 second pause, 
and watch the frantic activity as the clock 
catches up! This serves to show that’ the 


system does not forget interrupts it cannot 
handle, but stacks them up and executes them 
later when it can (up to a maximum of 127 or 
so). 


So subtasking can be quite easy to use, but there 


are a few precautions to take. In the above fragment 
the subtask printed in a different window from the main 
task. How about if both are printing to the same 


window? Consider a main task that has a routine: 


100 LOCATE X,Y 

104 PEN 2 

106 PRINT A,B,C 

110 FOR J = 1 TO 25 
120 ... 


and a subtask with: 
4020 LOCATE XPLACE,YPLACE : PEN 3 : PRINT A$ 


If the interrupt to the subtask occurs between 
statements 106 and 110, or 110 and 120, all may be 
rosy, but you can see what will happen if the interrupt 
occurs between 100 and 104 - we have carefully 
positioned ourselves at X,Y and before we have a chance 
to print we are snatched away and positioned at 
XPLACE,YPLACE. When the subtask ends (with a RETURN) 
the main task changes to PEN 2 and prints - but of 
course the location is very unlikely to be correct, and 
the output will therefore look strange. 


The problem is even more severe if the interrupt 
happens to occur after statement 104; subsequent 
printing will be both in the wrong place and in the 
wrong colour! 


Fortunately the problem is easily avoided once 


understood. Amstrad BASIC supplies DI and EI 
instructions (Disable and Enable Interrupts) and we can 
enclose sensitive pieces of code with these. In the 


above example, 


99 DI 
108 EI 
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should solve the problem, ensuring we are not 
interrupted between positioning ourselves and printing. 
Naturally we should keep the code between DI and EI as 
short as possible, since we do not want interrupts to 
be kept waiting long, but we already know that they 
will be only delayed, not forgotten, so nothing is 
lost. 


Do not confuse “interrupts” as discussed here with 
the system interrupts which occur at least every 20 
milliseconds. DI has no effect on system interrupts. 


The above example showed 1 subtask, but you can 
have a maximum of 4, which means a total of 5 tasks 
including the main task. The subtask number, 0 to 3, 
is indicated by the second parameter of EVERY, ie. 


10 EVERY 100,1 GOSUB 1500 
20 EVERY 80,2 GOSUB 3400 


kicks off 2 subtasks, numbers 1 and 2. As usual 0 
is the default task. 


There is a strict priority with 3 having the 
highest priority and the main task the lowest. So if a 
priority 1 subtask is operating it may be interrupted 
by a priority 2 or 3. subtask, but interrupts for 
priority 0 subtasks will be held pending until the 
priority 1 subtask terminates, when control will pass 
to subtask 0 rather than to the main task. 


Up to now I have only mentioned the EVERY 
statement, which causes a regular interruption. There 
is also the AFTER statement which causes a_ single 
interruption only. 


A subtask can of course originate another subtask, 
including itself. So you might have: 


10 AFTER 1000 GOSUB 3000 
3000 REM SUBTASK 0 

3100 AFTER 500 GOSUB 3000 
3110 RETURN 


There is also the REMAIN function which is useful 
if you decide to put a halt to further interrupts. 
Invoking REMAIN(subtaskno) causes any pending interrupt 
for the appropriate subtask to be cancelled. Subtasks 
are cancelled anyway when an END statement is 
encountered. 
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A few words of warning. 


You can see that the creation of subtasks is made 
remarkably easy for you. The few minor pitfalls that 
there are are quite easily avoided. 


Piftall number 1 we have already discussed. Check 
that you do not unintentionally use a variable in one 
subtask that is also used in another, or unpredictable 
results may occur. 


Pitfall number 2. Check that you use DI and EI to 
surround bits of coding that cannot be interrupted. 


Pitfall number 3. It is no use saying EVERY 50 
GOSUB 3000 if your subtask at 3000 takes more than 1 
second to execute! You will spend all your time in the 
subtask and the main task will never get a look in... 
If necessary you can check the length of a’ subroutine 
using a T=TIME statement at the start, and a PRINT 
TIME-T at the end. The value printed will be the time 
in 300/ths second. 


To summarise, the Amstrad Interrupt and 
Multitasking commands are an extremely useful and 
powerful facility, and provide an easy way to handle 
many situations that are complex in other BASICs. 


Future Expansion. 


A hopeful sign for the future is that the BASIC is 
designed to be expanded, so future extensions’ should 
not come as an afterthought (as undoubtedly happens 
with many other systems!) The mechanism is that a 
command preceded by a vertical bar ‘|° will be 
considered by BASIC as an external command, ie. a 
command to be handled by another ROM. 


Quite how this will be used remains to be seen, 
but it may be that the Amstrad disk controller, when it 
comes, will include a ROM containing some new BASIC 
commands to allow disk directories to be listed, 
direct-access files to be read and so on. By the use 
of the ‘external command” convention, the new ROM can 
effectively extend the existing ROM, replacing existing 
functions or adding new ones. 


Mere conjecture at present, but it would be a much 


cheaper and more painless method than having to prise 
out existing ROMS to replace them with new ones! 
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CHAPTER 3 
KEYS AND CHARACTERS 


The Amstrad keyboard is a very satisfactory 
design, both in terms of its comfort in use and because 
of the software behind it. In this chapter we consider 
the Amstrad character set, what is involved in changing 
it, and how the keyboard can be tailored to your 
requirements. 


User Defined Characters. 


In Chapter 2 we discussed how the boundary at the 
top of BASIC could shift up and down. There is one 
other system function that causes HIMEM to be _ moved 
down and that is the SYMBOL AFTER command. The Amstrad 
allows 256 different characters to be displayed. 
Normally the first 32 are not seen since they are 
interpreted as control codes, but you can in fact 
display them by preceding them with CHR$(1). 


10 REM DISPLAY ALL CHARACTERS, 0 TO 255 
20 FOR J = 0 TO 31 

30 PRINT CHR$(1); 

40 PRINT CHRS(J); 

50 NEXT J 

60 FOR J = 32 TO 255 

70 PRINT CHRS$(J); 

80 NEXT J 

90 END 


A very useful feature of the Amstrad is that any 
of these 256 symbols may be replaced by another, so you 
can define special characters to suit yourself. When 
you first start the system you already have the ability 
to redefine up to 16 characters only, numbers 240 to 
255, but you can alter matters so that all 256 can be 
redefined if you wish. 


Since the character definitions are normally held 
in ROM (all but the last 16) and your definitions will 
obviously need to be held in RAM, the system needs some 
space to be reserved, so if you enter SYMBOL AFTER, 
HIMEM is moved down. SYMBOL AFTER 200 means that you 
wish to have the capability of redefining all 
characters from 200 onwards. SYMBOL AFTER 0 allows all 
256 characters to be redefined. 
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Having used SYMBOL AFTER, if necessary (remember 
there is an assumed SYMBOL AFTER 240 when you start 
up), you can use SYMBOL to set up the new character 
definitions. Each character is defined as an 8 x 8 
Matrix of pixels and you denote a pixel as “ON” bya 1 
and ‘OFF’ by 0, dealing with the top row first. For 
example the character A - CHR$(65) - would be defined 
as: 


SYMBOL 65,&18,&3C,&66,&66,&7E, &66,&66,0 


oe FFL. &18 
2 REEDS a 3C 
o**L Le, 866 
ROKR, 666 
kkk CTE 
o**L Lee. & 66 
o**L Lee, &66 
siete ehataws.'s &00 


Do not assume a pixel is the same as a single dot 
on the screen. In mode 2 (high resolution) this is 
true, but in mode 1 a pixel is 2 dots, and in mode 0 it 
is 4. 


Note that if you enter a second SYMBOL AFTER 
command, any existing user-defined characters are wiped 
out! Also, if you have caused the top of BASIC memory 
to be adjusted since keying in the last SYMBOL AFTER, 
the system will refuse the second SYMBOL AFTER command. 
This explains why you cannot use MEMORY to reserve 
space for a subroutine, then issue a SYMBOL AFTER. The 
system has issued its default SYMBOL AFTER 240 command 
on starting BASIC, then you move the boundary with a 
MEMORY statement. The remedy is to issue SYMBOL AFTER 
before issuing any MEMORY statement or using any 
cassette files. 


Incidentally, the system uses the 128 bytes at 


&AB80 to store the definitions for symbols 240 to 255, 
8 bytes for each character. 
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Character Experiments. 


The following program can be used to experiment 


with your own characters. It uses MODE 0 for clarity. 
Use the arrow keys to move around the matrix. 
Pressing D at any location turns the pixel ‘ON’, 
pressing U causes the pixel to be turned off (to be 
“undotted’) and pressing Q causes the program to end 
and the definition for SYMBOL to be displayed. The 


symbol is shown in its normal size as it is being 
created, and the hexadecimal coding for each row of 
pixels is shown to assist understanding of how the 
character is declared in a SYMBOL statement. 


1 REM USER CHARACTER DEFINITIONS 

5 ON BREAK GOSUB 46000 

10 GOSUB 1000 : REM initialise 

20 GOSUB 2000 : REM receive characters 
30 END 

1000 MODE O 

1010 LOCATE 1,1 

1020 FOR row = 1 TO 8 

1030 FOR col = 1 T0 8 

1040 PRINT ". "5 

1050 NEXT col 

1060 FRINT " &0O" 

1080 PRINT 

1090 NEXT row 

1100 LOCATE 5,22 : FRINT "Enter B (dot), 
U (Undot), @ (Quit) or an arrow key." 
1200 WINDOW £1,10,10,20,20 

1210 PEN £1,2 

1220 SYMBOL AFTER 128 

1230 DIM prow(8,8) ,FXROW (8) 

1240 GOSUB 3000 : REM DEFINE CHAR 128 
1250 dot#=CHR# (143) 

1260 undot#="." 

1270 dotcursor?=CHR# (127) 

1280 undotcursor#="*" 

1290 LOCATE 1,1 : x=1 : y=1 : FPRINT undo 
tcursor$; 

1999 RETURN 

2000 REM 

2010 z¥=INKEYS : IF z#="" THEN 2010 
2015 z#=UPPERS (Z#) 

2020 2=INSTR("DUGQ"+CHR# (240) +CHR# (241)+C 
HR# (242) +CHR# (2435) , 2) 

2030 IF z=0 THEN 2010 
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2035 nx=C 3: ny=O 

2040 ON z GOSUE 2160,2200,2700,2400,2500 
»2600,2700 

2045 LOCATE X#2-1,Y#2-1 

2050 IF prow(x,y)=1 THEN FRINT dot#; ELS 
E PRINT undot#; 

2060 x zs y=yrny : LOCATE X*¥2-1,Y¥*2- 
1 


2070 IF prowis,y?=i THEN FRINT dotcursor 
#; ELSE PRINT undotcursoar#; 

2080 LOCATE 19,y*2-1 : PRINT " "os LOCA 
TE 19,Y#2-1 : PRINT HEXE(PXROW CY! > 

2090 SOSUB BOC 

2095 FRINT £1,CHR# (128); 

2099 GOTG 216 

2100 REM D 

FROW (NX ,Yi=t 

parody) =pirowéy) GR S7 (8-5 

RETURN 

REM u 

See 

purowlyl=pxrcudy? XOR BU (S-s) 
RETURN 

REM 4 

LOCATE 1,22 : FRINT CHARS (20) y: PRINT 
"GYMBOU : 4G 

FOR row = i To 7 

PRINT "“&" SHEERS (peraowtraw)}3", "5 
NEXT row 

S350 PRINT “&" HEX faxrow (row?) ; 

2266 END 

2400 REM uparrow 

2410 TF y ei THEN my=-i 

2499 RETURN 

REM down arrow 

TF oyiG THEN ny= 


RETURN 

REM left arrow 

EP x2 TREN ax=-i 
RETURN 

REM right arr 

TF «8 THEN mz 
RETURN 


3000 REM define char 126 
SO10 SYMBOL. 12€,pxrcw( 1? 
3) ypxroawt4) ,pxrow(S: 
sraw(&) 

2999 RETURN 

6000 REM break 

S010 MODE 1 

6020 STOF 
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Keying Your Characters. 


If you create your own characters using the above 
method, you may want to be able to display them on the 
screen using a single key stroke, rather than saying, 
for example PRINT CHR$(220). This can be achieved 
easily because the Amstrad allows you to redefine any 
of the keys to return any value - or more precisely any 
of 3 values, because the key may be ‘normal’, or 
entered at the same time as CTRL or SHIFT. 


In addition you can also choose whether you’ wish 
the key to auto-repeat, that is to repeat the character 
if the key is held down. You can even experiment with 
the repeat rate until you find a speed that suits you 
personally, using the SPEED KEY command. 


To understand all this you should know that every 
key has a number. You might think that the second key 
from the left on the third row down is the ‘A key’, but 
it only returns A by convention, and can be altered to 


give any other character you wish. But one thing that 
never alters is the key number, or rather the key and 
joystick number, for the optional joysticks are 


included in the above scheme. 


A chart showing the key numbers is shown in the 
Amstrad handbook, Appendix III page 16. Referring to 
the key number, we can alter the character returned by 
any key, when normal, shifted or pressed with the CTRL 
key. For example: 


KEY DEF 69,1,8&62,&42,2 


tells the system to alter key 69 (which normally 
returns a, A, or ctrl-A) so that it returns b, Bor 
ctr1-B. The 1 signifies that we wish it to repeat the 
character if held down. Try it! 


The entire keyboard can be reprogrammed in this 
way if you wish (except the SHIFT and CTRL keys), so 
that you could change from a QWERTY layout to a DVORAK 
layout if you wish (pity about the keytops though). 


Changing the A key to produce a B is usually a 
nonsensical thing to do, but you might well wish to 
change an infrequently used key to represent a_user- 
defined character instead. Suppose you have’ used 
SYMBOL to create 3 special graphics symbols, 220, 221 
and 222. You may also decide you can dispense with the 
square-bracket keys for the time being. 
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Turning to Appendix III of the Amstrad handbook 
you will see that the number of the left square bracket 
key is 17 and that of the right bracket 19. So you 
could enter: 


KEY DEF 17,1,220,221,222 


which will change the left-hand square biacket key 
so that it will display symbol 220 in ‘normal’ mode, 
221 if shifted and 222 if pressed with CTRL. (The 1 
means REPEAT=YES). Key 19 can be saved for other 
purposes. 


An examination of the keyboard will reveal many 
“spare” keys that can be used in this way. 


Or Key Entire Phrases. 


You may well think that the above has demonstrated 
the full flexibility of the Amstrad keyboard. But 
there is more! You can redefine any of the keys’ so 
that when pressed they generate whole phrases rather 
than single characters. 


This is achieved by reserving certain values 128- 
159 to be “expansion tokens”. When any key returns any 
of these values, the system looks up a “‘phrase-table’ 
and extracts the appropriate character or phrase. So 
token 128 may cause LIST to appear, token 129 RENUM and 
so on. 


The system in fact defaults so that the numeric 
pad keys return the values 128 to 140, and these have 
been set up to create the ASCII values ‘0° through ‘9’ 
and a decimal point. Also the small ENTER key on the 
numeric pad has been defined so that if the CTRL key is 
pressed simultaneously the phrase RUN "+CHRS$(13) is 
generated. This explains why you have to use the small 
ENTER key, not the large one, in this case. 


This use of tokens, and the initial state of the 
“‘phrase-table” is shown in the handbook, Appendix III 
page 15. 


By typing the KEY command (do not confuse this 
with the KEY DEF command which we have used above) you 
can set up a library of phrases, each one associated 
with a separate expansion token. If, for example, you 
are writing a long program that uses different colours, 
inks, pens etc., you may well need a phrase such as: 


CLS: INK 0,1:INK 1,24:PAPER 0:PEN 1:LIST 
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to restore sanity to the situation. But that is a long 
one to key in if you find yourself typing in bright 
green on a lime green background! 


You cannot unfortunately assign the whole string 
to 1 key because there is a limit of 32 characters per 
string. But you can split it between 2. 


KEY 138,CHR$(13)+"CLS:INK 0,1:INK 1,24"+CHRS$(13) 
KEY 139,CHR$(13)+"PAPER 0:PEN 1:LIST"+CHR$ (13) 


which will cause the decimal point key and _ the 
small ENTER key to generate the required instructions 
whenever you wish. 


There is considerable scope for ingenuity here. 
For example, if you define a key to produce LIST you 
can either surround it with CHR$(13) so that a press of 
the key produces an immediate list, or choose to leave 
off the final CHR$(13). In the latter case the command 
LIST will be typed, but the system will then wait for 
you to complete the instruction. You could then choose 
to press ENTER (the large key, not the small), or to 
select the lines to be listed. 


Two potential questions may occur to you. 


- What happens if you wish, say, the “7° key on 
the numeric pad to display CHRS$(135) when 
pressed, rather than considering 135 as an 
expansion token and searching a phrase-table? 
The answer is simply to insert CHR$(135) in 
the phrase-table: 


KEY 135,CHR$(135) 


- What happens if you are reading the keyboard 
using INKEY$ and a key is’ pressed which 
returns an expansion token? The answer is 
that the first character of the phrase is 
returned, and subsequent INKEY$ requests 
return the other characters. 


This feature gives you considerable flexibility, 
and is one I have found missing on many larger more 
expensive systems. Properly used it can be a great 
timesaver. The limitations are that no phrase can _ be 
longer than 32 characters, and there is a maximum of 
120 characters altogether - so you cannot set up keys 
for every BASIC keyword for example. 
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Remember, there is no need to restrict yourself to 
the numeric pad. Any key on the keyboard can be 
defined to return a value in the range 128 to 159 by 
using KEY DEF, and you can then use KEY to assign a 
phrase or phrases to the newly redefined key. 


Remember too that every key can potentially 
produce 3 characters or expansion tokens, since the key 
is defined for normal, shifted and CTRL-d operation. 


Simple! Two words of warning, though. Remember 
that the CAPS LOCK key can cause a key to be shifted 
automatically, and if you have defined its shifted 
state to be a phrase you may get a surprise... And do 
not tamper with the ESC key. Redefining it seems to 
give BASIC nervous flushes, and the system can reset 
itself unpredictably. 


The Keyboard Buffer. 


To finish our perusal of the keyboard, we must 
consider the keyboard buffer. On many machines you can 
lose characters because the BASIC is too slow to keep 
up with your typing. This is extremely annoying. But 
Amstrad BASIC checks every 20 ms to see if a key has 
been pressed, and if so puts the character in a buffer. 
When you program using INKEY$, the system does not 
immediately wait for a key to be pressed, but merely 
gets the next character from the buffer, if there is 
one. So you can enter characters independantly of what 
the program is doing. To prove the point try the 
following: 


10 FOR J = 1 TO 10 

20 2S = INKEYS : IF Z$ = "" THEN 20 
30 FOR J1 = 1 TO 1000 : NEXT Jl 

40 PRINT Z2$;" "; 

50 NEXT J 


and see the system plod manfully on without 
spilling a drop... 


-- Page 28 -- 


AMSTRAD EXPLORED 


CHAPTER 4 
GLORIOUS TECHNICOLOUR 


In this chapter we consider the Amstrad screen, 
how it is handled, and how to manipulate the choice of 
colour. This lays the basis for more advanced graphics 
possibilities later. 


Any discussion of colour must start with a 
clear understanding of the basic tools available. (I 
hope you have a colour monitor!) 


Screen Memory. 


The Amstrad screen may look peaceful at times, but 


in fact it is feverishly active. A monitor or TV does 
not retain an image long, it has to be “refreshed” at 
frequent intervals. In the case of the Amstrad the 


system rewrites the whole screen 50 times a second, ie. 
every 20 ms. Since this is far too fast for the eye to 
follow the screen image appears stationary. 


The data or images displayed on the screen are 
held in an area of computer main memory, normally 
starting at &C000 (but see chapter 5). If we write 
anything to this area it will be displayed on _ the 
screen within 20 ms, ie. the next time the screen is 
refreshed. So it will appear to be instantaneous. 


Unfortunately you will not succeed in writing 
meaningful data to the screen by POKEing it into memory 
at address &C000 and above. This is because the 
mapping of the screen area is complex; a single byte 
does not match to a character, so POKEing &C000 with 
65, for example, will not cause a capital A to appear 
in the first position of the screen. Tough! 


The complexity of the screen memory area does not 
usually concern us since there are routines available, 
both in BASIC and Assembler to handle the mapping for 
us. If you feel you really need to know the mapping of 
pixels to bytes you need the Amstrad Technical Manual. 
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Modes of Display. 


We have 3 choices concerning the type of display 


we will use. There are 3 MODES available, and our 
choice at any time will represent a trade-off between 
colour and_ resolution. Each “pixel” (the smallest 


addressable point on the screen) has to be individually 
defined. 


In mode 1, which is the default mode into which 
the system goes on start-up, there are 25 rows of 40, 
ie. 1000 characters to be defined in memory, and the 
screen area allocated in the Amstrad is 16k, generally 
from &C000 to &FFFF. So there are 16 bytes per 
character, with a few left over. 


AS you may well remember from chapter 3 (user- 
defined characters), a character is really a matrix of 
64 pixels, therefore each pixel has 16/64 bytes. per 
pixel, ie. 2 bits. With 2 bits you can represent 4 
states, 00, 01, 10, or 11, ie. 0, 1, 2 or 3. Hence you 
can describe any pixel as being one of 4 colours, but 
no more. 


You should now easily be able to work out why mode 
0 allows 16 colours (because there are 4 bits per 
pixel) and mode 2 allows only 2 (a single bit available 
per pixel!) The area allocated for screen memory 
remains a constant 16k in all modes. 


A Colour Test. 


So, back in the default mode, mode 1, we are 
limited to 4 colours at any time (although, all colours 
May be set up as flashing, ie. alternating between 2 
colours if you really want a_ headache!) Start by 
resetting the system. The READY prompt is portrayed in 
yellow on a blue background - if you have a_e colour 
monitor! Clearly only 2 of the 4 colours are in 
evidence so far. 


Enter the following small program: 


10 CLS 

20 GOSUB 1000 

30 END 

1000 FOR J =1T05 
1010 PRINT J; 

1020 NEXT J 

1030 PRINT 

1040 RETURN 
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Run the program. We often compare writing 
characters on a screen to using pen and paper. So we 
may say here that the paper is blue, and that we have 
picked up a yellow pen. 


Now enter the following changes to the above 
program: 


30 PEN 2 

40 GOSUB 1000 
50 PEN 3 

60 GOSUB 1000 
70 END 


and you should see 3 sets of figures on the 
screen, each set in a different colour. Together with 
the background of blue, that completes our 4 colours. 
(It is true that we could set the border to a 5th 
steady colour or to a 5th and 6th flashing colour, but 
we can do nothing with the border except change its 
colour and it does not form part of the 16k screen 
memory area. It will be ignored for the remainder of 
this discussion). 


If we were to change to mode 0 we could display 15 
sets of figures, each in a different colour by entering 
PEN 4, PEN 5, etc. You should visualise PEN as 
allowing us to select colours from a palette which is 
limited to a maximum capacity of 16 colours (mode 0), 4 
(mode 1), or 2 (mode 2). It is true that we have 27 
colours in our paintbox, but we are restricted in the 
way we use them, since it would require 5 bits per 
pixel to be able to select 27 colours (with a few spare 
combinations). 


The Artist At Work. 


The command INK allows us to change the colours in 
our palette. Tell the system which of the 4 colours 
you wish to change (first parameter) and which colour 
you are going to bring out of the paintbox (second 
parameter). Whatever colour you were using is, as it 
were, put back in the box. So although you are limited 
to a maximum of 4 (in mode 1) you can choose any 4 from 
the total range of 27. 


For example, try: 
INK 2,4 
and the second set of figures, in fact anything on 


the screen written in pen 2, will change from bright 
cyan to magenta instantaneously. 
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Any of the 4 can be flashing colours. Try: 
INK 1,20,8 


and the first set of figures, which were written 
using PEN 1, alternate between colours 20 (bright cyan) 
and 8 (bright magenta). 


I must admit that the analogy of the palette is 
now beginning to wear a bit thin, since merely changing 
the ink in the palette has caused the picture on_ the 
screen to change also, if any of that ink has already 
been used in the painting. A lightning artist indeed! 


A final word of explanation on the INK command is 
perhaps necessary. In mode 1, as already explained, we 
are limited to 4 colours. These are denoted in PEN and 
in the first parameter of INK commands as 0, 1, 2 or 3. 
When you first start up, the paper you ‘write’ on is 
set to ink 0, and the pen to ink 1. What we did in the 
above program was to write a set of figures in the 
default ink for pens - ie. 1 - and then to change’ the 
pen to pen 2 and finally to pen 3. We have not altered 
the paper colour at all, it has stayed as ink 0. (Try 
changing it by all means. Merely enter INK 0,6 for 
example, and you will see the third set of figures 
vanish, since you have effectively written them with 
red pen on red paper). 


As well as putting down one pen and taking up 
another (the PEN command), we can change to a different 
paper by using the PAPER command. PAPER 2 would cause 
the background to change to whatever colour INK 2 was 
set to for all future writing. 


It is important that you understand that entering 
PEN 2 or PAPER 3, for example, does not alter what is 
already on the screen but only what is written later, 
whereas entering INK 2,4 or INK 0,6 certainly has an 
immediate (and frequently dramatic) effect. 


-- Page 32 -- 


AMSTRAD EXPLORED 


Logical vs Physical Colours. 


For reference, here is a table of colour numbers. 
This should also help remind you of the difference 
between LOGICAL COLOURS (the first parameter of INK) 
and PHYSICAL COLOURS (the second parameter). 


PHYSICAL COLOURS LOGICAL COLOURS (DEFAULTS) 


Colour Colour Mode Mode Mode Paper Pen 
Number Description 0 1 2 


Black 

Blue 
Bright Blue 
Red 
Magenta 
Mauve 
Bright Red 
Purple 
Bright Magenta 
Green 
Cyan 

Sky Blue 


Pastel Blue 
ee eee 


Sea Green 
Bright Cyan 
Lime Green 
Pastel Green 
Pastel Cyan 
Bright Yellow 
Pastel Yellow 
Bright White 


Flashing 1,24 
Flashing 16,11 


The above table shows that the default paper. is 
ink 0 and colour 1 (Blue) in all modes. Similarly the 
default pen is ink 1 and colour 24 in all modes. 


Note: Using a logical colour greater than the range 
allowed (for example PEN 5 while in mode 1) will not 
cause an error, the value will be taken as MOD 16 (mode 
0), MOD 4 (mode 1) or MOD 2 (mode 2). 
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Special Effects 


Do not assume from the above explanation that all 
colours have always to be different. It may sometimes 
pay us to make them the same. For example, enter: 


INK 0,1 

PAPER 0 

INK 1,24 
PEN 1 


to restore some sanity to your flashing screen, 
then run the program again, and enter: 


INK 1,1 


The first set of figures instantly vanishes! And, 
if we enter: 


INK 1,23 


it reappears just as quickly, but ina different 
colour. This touches on a very important feature which 
will be very useful to us when we look at graphics 
later - the ability to make images appear and 
disappear again under control. The proper use of INK, 
and PEN, together with a few control codes will enable 
us to do such ‘tricks’ as: 


= making objects appear and disappear 
“instantaneously”, 


= giving the illusion of several planes or 
layers, allowing foreground objects to move 
in front of midground objects and to obscure 
background, 

- animation. 


More of all that later; it is time we moved on from 
colour to introduce the Amstrad graphics! 
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CHAPTER 5 
GRAPHICS AND TEXT 


Following the discussion in the previous’ chapter 
on Amstrad colour, we look now at text and graphic 
commands, and at techniques for handling displays. 


Block Graphics. 


Everyone understands text; text characters are 
those in the ASCII character set, characters 32 (space) 
to 127 (a chequer pattern known as ‘course’ shading’). 
But graphics perhaps needs some preliminary definition. 
On the Amstrad there are 2 sorts of graphics, block (or 
mozaic) and line. Block graphics are single characters 
and are printed just like text. For example 


PRINT CHR$(224) 


prints a single block graphic, a smiling face. 
Because block graphics behave just like ordinary text 
characters you can define your own if you wish (see 
chapter 3) and combine them to form larger characters. 


The Amstrad provides a wide range of useful block 
graphics, including ‘sets’ of characters that are 
useful for drawing boxes or diagrams. Study the large 
definitions given in the handbook, and you will notice 
various groupings: 


characters 128-143: blocks. Each block represents 
4 cells, any of which may be 
‘on’ or ‘off’. 


characters 144-159: lines. Designed to connect 
the centre of a character to 
the centre of an edge, in 
various combinations. 


characters 160-191: further text characters. You 
will notice various foreign 
characters, including Greek 
letters, French accents, a 
Spanish upside-down question 
mark, etc. 


characters 192-255: Miscellaneous graphic symbols. 
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characters 0-31: Further miscellaneous symbols. 
Since these are also control 
codes you have to precede them 
with CHRS$(1) if you wish to 
see them displayed on the 
screen, (see chapter 3), but 


they contain some useful 
symbols, so should not be 
forgotten. 


Do not forget, when you are using normal line 
graphics that it may be advantageous to blend them with 
a judicious mixture of block graphics, for greater 
effect. 


Line Graphics. 


Line graphics are, as you might think, formed by 
lines. Reset the system and try the following simple 
program to draw a rectangle: 


5 CLS 

10 MOVE 300,200 
20 DRAW 340,200 
30 DRAW 340,300 
40 DRAW 300,300 
50 DRAW 300,200 
60 END 


Line graphics are always drawn on a Graphics 
Screen, whereas block graphics and text are drawn on a 


Text Screen. Each type of screen has its own 
boundaries and its own cursor - but the graphics cursor 
is always invisible! It is there however, and you can 


always find its position in XY co-ordinate terms by 
investigating XPOS and YPOS. After running the above 
program, XPOS - the horizontal position - will be at 
300 and YPOS - the vertical position - will be at 200. 
Try: 


PRINT XPOS, YPOS 
to verify the above statement. 


XPOS can range from 0 to 639 and YPOS from 0 to 
399 because the graphics screen is 640 x 400 dots. 
There are actually only 200 dots vertically, but 
doubling the figure makes the distance between, say, 10 
dots approximately the same in either direction, 
vertical or horizontal, so makes for easy graphics 
calculations. 
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The graphics screen is the same size whatever mode 
you are working in, so graphic programs written for one 
mode may well work in another, although the results may 
well look very different. In mode 0, the lowest 
resolution mode, each pixel will occupy 4 horizontal 
dots, and if you enter: 


MODE 0 

PLOT 320,200 
PLOT 321,200 
PLOT 322,200 
PLOT 323,200 


you will see that there is only 1 pixel plotted 
(or 4 plotted in the same place!) 


Positions on the graphics screen are always given 
with the X coordinate first. Location 0,0 is at the 
bottom left and 639,399 at the top right. 


639,639 


320,200 


The Graphics Screen 


There is nothing wrong with this arrangement, 
except that it happens to be the opposite way to that 
in which the text screens operate. They start 
numbering at 1 (rather than 0) and run from top left to 
bottom right, and the X coordinate varies from 20 (mode 
0) through 40 (mode 1) to 80 (mode 2)... Oh well, I 
suppose it keeps you young. 
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Graphics Commands. 


To return to line graphics: The commands are few 
and very simple. DRAW is obvious; it draws a line in 
the current ‘graphics-pen” colour from whatever the 
current graphics location is to a new one. The current 
colour, in graphics terms, is whatever colour you used 
last time! If this is the first time a graphics 
command has been used the ‘current colour’ is’ ink 
number 1. 


You can select a new graphics colour any time you 
wish by adding a colour to the DRAW command itself so 
DRAW 500,200,2 will draw a line in INK 2 colour, 
whatever that happens to be at the time, and all 
further graphics commands will continue to use INK 2 
until you specifically select another. 


MOVE moves’ to any XY position on the screen but 
draws nothing, and PLOT draws a single pixel (the size 
of which will vary according to the current mode) at 
the specified graphics location. PLOT, like DRAW, can 
also have a colour stated as the third parameter, and 
if so that becomes the new graphics colour. 


TEST can be used to discover what graphics colour 
a particular pixel is written in. This might be useful 
in a games program, for example, where you are 
mManoeuvering about a screen that has been dotted with 
random objects. 


DRAW, MOVE, PLOT and TEST all use absolute XY 
coordinates, but there are different command forms that 
use relative addresses - relative to the current 
location that is. So PLOTR 40,50 will plot a point at 
XPOS+40,YPOS+50. 


In the above small program we used CLS to clear 
the screen, but strictly speaking that command clears 
text screens and we should have used CLG which clears 
the graphics screen. The effect in the above program 
was the same, assuming you reset the system first, but 
will not always be so. CLG will normally restore the 
current PAPER colour, whatever that is, (default 0), 
but you can clear to a specific colour, ie. CLG 2 will 
clear to ink number 2 which may or may not be at its 
default of bright cyan (colour 20), and that will 
remain the current background graphics colour until you 
elect to change it. 
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The only remaining line graphics command to be 
discussed here is ORIGIN which allows us to move the 
0,0 location away from the bottom left-hand corner if 
we wish. 


For example: 
ORIGIN 320,200 


moves the 0,0 point to the centre of the screen 
and it will remain there until we move it elsewhere. 
While it is there, we must use negative coordinates to 
move below or to the left of the new 0,0 point. For 
example, to address the bottom left-hand corner we 
could say: 


DRAW -320,-200 
and 
DRAW 319,-200 
to reach the bottom right. 


Normally the graphics screen occupies the whole 
area of the physical screen (excluding the border which 
is not a part of either the text or the graphics 
screen). But we can limit graphics to a smaller area 
if we wish, again using the ORIGIN command. 


ORIGIN 0,0,160,480,300,100 


will define a reduced graphics window in the 
centre of the physical screen. Try entering 


CLG 2 


to see the boundaries of the new area. Then try 
CLS, noting that the clearing of the text screen also 
clears the graphics screen, since they overlap. CLG 
will restore it, so there is obviously a simple rule 
whereby, in the case of screen conflict, the last 
operation wins! 
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Drawing Circles. 


Apart from TAG and TAGOFF (see below), those are 
all the graphics commands! No CIRCLE or FILL, which 
would have been nice. But with those few a lot can be 
achieved, as we shall see. 


Here is a subroutine to plot a hollecw circle. 


1000 REM CRAW CIRCLE OF RADIUS R AT CX,CY 
1010 DEG 

1020 ORIGIN CX,CY 

1030 FOR J = 1 TO 360 

1040 PLOT R*COS(J),R*SIN(J) 

1050 NEXT J 

1060 RETURN 


Alter line 1040 to: 
1040 MOVE 0,0 : DRAW R*COS(J),R*SIN(J) 
if a (reasonably) sclid circle is wanted instead. 


That subroutine has the feature(?) that the origin 
is altered to the centre of the circle. If this is not 
what is wanted, you could write: 


1000 REM DRAW CIRCLE OF RADIUS R AT CX,CY 
1010 DEG 

1020 FOR J = 1 TO 360 

1020 MOVE CX,CY 

1040 PLOTR R*COS(J),R*SIN(J) 

1050 NEXT J 

1060 RETURN 


Both subroutines would be invoked by setting CX, 
CY and R. For example: 


10 Cx= 320 : CY = 200 : R = 150 : GOSUB 1000 
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A Tolerant System. 


When experimenting with different circles and 
other shapes, note that if, by accident or design, you 
draw lines or plot points off the screen, the system 
patiently calculates where the line would have gone to, 
had the screen been large enough, and does the best it 
can! Try: 


10 ORIGIN 0,0 

20 MOVE 320,200 

30 DRAW 0,200 

40 DRAW 320,900 

50 DRAW 1000,100 
60 DRAW 320,200 


to see the effect. Much better than collapsing 
with an error message! The only slight disadvantage of 
this tolerance is that, if you get the coordinate 
calculations badly wrong you can plot whole figures off 
the screen which is wasteful of time to say the least. 


In general, if the graphics command seems to 
produce nothing but a deathly silence, check first that 
you are not plotting in the same ink as the background, 
then check the current XPOS, YPOS locations to make 
sure you have not strayed far into the wilderness of 
outer screen! 


Moving the Screen Memory. 


I said in chapter 4 that the screen memory 
normally starts at &C000. That is the default, but you 
can position it on any 16k boundary if you wish and 
there is an operating system routine at &BC08 to set 
the screen memory address to a new position. 
Theoretically this could be at 0, &4000, or &8000 but 
in fact there is an excellent reason why only &4000 can 
be used as an alternative. Placing the screen at &0 or 
&8000 would overwrite operating system areas in 
constant use and cause a system crash. 


If we do decide to create a new screen area at 
&4000, we could also create a design at &C000 and 
switch between the two. This is one way of creating 
special screen effects such as animation. Run the 
following program: 
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LOO ser = &OO : 
1110 start = i : 
i200 scr = &40 3: 


1210 start 
1299 RETURN 
1990 CLG : DEG 

1992 RESTORE 1995 

1905 FOR wheei = 1 TG = 

1907 READ gx,gGy 

i919 ORIGIN gx,gy : DEG 

1929 FOR j = 1 TO 366 

1930 PLOT SOx*COS(j) ,SO*SIN(3),1 
1940 NEXT 3 

1950 FOR j=start TO start + 240 STEP 
1960 MOVE 0,0 

1970 DRAW SO*COS( 5) ,SO*#SIN( 3) 

1980 NEXT 3 

1985 NEXT wheel 

1990 RETURN 

1995 DATA 160,100,480,1°0 

2000 REM change screen 

2O10 FORE &8001,s5¢ 

2020 CALL &8000 

2999 RETURN 


an 


cu 


The DATA statements make up an assembler 
subroutine which loads register A with the value 4&CO, 
the high-order part of the screen address, and calls 
the operating system routine at &BC08. The routine at 
2000 ensures that the value loaded into A is either &40 
or &C0. 


There are other ways to achieve the same sort of 
effect with a single screen area, but the use of two 
can give an added dimension to complex graphics. Be 
thankful for the large memory of the Amstrad that 
allows you to use 32k for screen areas and still have 
plenty for a large BASIC program! 
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Text Screens - Windows. 


Leaving graphics for the moment, we return to 
text. We have been talking in this chapter of ‘a text 
screen’ and ‘a graphics screen’. In fact there are 8 
text screens, although by default they are all set to 
the same area, the physical screen. We have been 
writing to screen 0, the default text screen, but there 
are 7 more numbered 1 to 7. There is only 1 graphics 
screen. 


The size and position of a text screen can be 
defined with the WINDOW command, and that is how we can 
create several screens to coexist on one physical 
screen. For example we might want to define a window 
in the top right of the physical screen. Try resetting 
the system, then type: 


WINDOW #1,21,40,1,12 


which defines screen 1 area as the rightmost 20 
columns of our MODE 1 screen and the top 12 rows. 


The fact that there are now 2 windows on the 
screen is not immediately visible, but try entering and 
running the following program: 


10 CLS 
20 FOR J = 1 TO 20 
30 PRINT J;TAB(5);SQR(J) 
40 NEXT J 
50 END 
then enter the command 
LIST #1 
and the program will be listed in the top right 
corner without affecting the figures on the left-hand 
side, which are of course in screen 0. 


Note that CLS was taken by the system to mean 
CLS #0 and that screen 0 is still the full physical 
screen. Entering: 
WINDOW #0,1,20,1,25 


contains screen 0 to the left-hand side of the 
screen, and 


WINDOW #2,21,40,13,25 


stakes a claim to the bottom right. 
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From now on each window will mind its own 
business. Each remembers its current location 
independantly, and printing text in one window does not 
alter the cursor location (invisible unless the stream 
is waiting for input) in the other windows. A command 
such as PAPER #1,3 will change the background ink for 
one screen only, so a subsequent CLS #3 will cause an 


instantaneous change of colour. (In some applications 
that might be a quick way of colouring an entire 
rectangle at a stroke). 


Remember though that windows are selfish and 
overwrite everything else in sight if they need to - 
the last man wins! 


You already know the CLS command and the PRINT 
command (use PRINT #3,... to write to screen 3). 
LOCATE moves the text cursor to the specified XY 
position, but remember that the text screens work in a 
different way to the graphics screen, ie. top down and 
that the first screen position is 1 not 0. 


Windows are used extensively in the Home 
Accounting program in Part V. 


Mixing Graphics and Text. 


Normally, when you print characters, the system 
picks the current location as the place to. start 
writing, and updates the current position to point past 
the end of the characters when finished. But the 
Amstrad allows you to write text on the graphics screen 
if you wish. The command TAG #1 will cause subsequent 
printing to screen 1 to be positioned at the graphics 
cursor rather than the text cursor position. The 
graphics position is updated by 8 pixels after each 
character is written in this way. 


The TAG command is very useful for labelling 
graphs, pie-charts, and other diagrams. To return to 
normal mode of printing use the TAGOFF command. 


There is one other complication when intermingling 
graphics and text which should be mentioned here. If 
you have a complicated diagram and are trying to label 
it using TAG followed by PRINT it will be annoying to 
you if the text printing obliterates much of the 
detail. This will happen because when printing a 
character, the system normally clears the 8 x 8 pixel 
Matrix to the current paper colour before writing the 
character in the current pen colour. The printing of 
the character obviously has to be done, but it is that 
first clearing of the background which we would 
sometimes like to avoid. 
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The answer is easy! We will switch to 
‘Transparent Mode’. All this means is that characters 
will be printed without the background being cleared 
first - exactly what we want. Transparency is enabled 
by writing control code 22 followed by parameter 1 to 
whichever window we wish - default 0 of course. 


PRINT CHR$(22)+CHRS$(1); 

will turn transparency ON for screen 0 and 
PRINT CHR$(22)+CHRS$ (0); 

will switch it OFF again. 


You will see the effect of this very clearly if 
you switch transparency on, then type: 


LOCATE 1,1 
LIST 


assuming, of course, a program exists. The listing 
will appear jumbled because any characters that were 
already on the screen are not cleared before the new 
characters are written. 


We return to transparency in chapter 11. 


Foreign Character Sets. 


As well as being important for the labelling of 
diagrams, transparency can be very useful if we want to 
write in French or some other foreign language. It was 
remarked above that the character set contains foreign 
accents, and you may have wondered at the time how they 
could be used without obliterating the character 
already there. But it should now be clear that: 


PRINT "“e";CHR$ (8) ;CHR$ (167) 


will write e with a grave accent provided that you 
have switched transparency on first, and 


PRINT “u";CHR$(8) ;CHRS$(160) 


will give u with a circumflex accent. CHRS$(8) is 
of course a backspace. 
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Alternatively you could define your cwn characters 
to include fcreign accents, perhaps using the USER 
CHARACTER DEFINITICN program from chapter 3, then make 
foreign accented characters directly usable from. the 
keyboard, as in the following example: 


999 END 

1200 REM derine 
SYMBOL. 226,2 
%3C,0 : REM e Grave. 
1020 SYMBOL 229,2C,2%18,2 
C,oO : REM e acute 

1030 SYMBOL 230,%10,218,%78,2C0,27C,%C0,% 
76,0 : REM a grave 

1040 SYMBOL 231,%10,%28,%7C0,2C,2:7C,2CC,% 
76,0 : REM a circumtiex 
1050 SYMBOL 222,2456,%0, 
6,0 : REM a umlaut 

1060 SYMBOL 233,256, %&0,%656,%55,266,%66, 2%: 
SE,0 : REM u umlaut 

1070 SYMBOL 234,218,%3C,%0,%66,%&56,%66,% 
ZE,O : REM u circumfiex 

1080 SYMBOL 2E5,%0,0,%20,%S6,%50,%465,2 
»¥18 : REM c Gadi tie 

1999 RETURN 

fix keys to print foreign chara 


2010 KEY 1235,CHRE (228) 
2020 KEY 126,CHR# (229) 
2030 KEY 127,CHRE( 
2040 KEY soak renner 
2050 KEY R: 2) 
2060 KEY 134,CHRE(2 
2070 KEY 129,CHRE (23 
2080 KEY 130,CHR#(235) 
2999 RETURN 


Now try using the numeric pad! C’est formidable! 
The only snag may come if you wish to print the 


results, since your printer character set may not. be 
the same as your unique user-defined set... Tant pis! 
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CHAPTER 6 
PROGRAMMABLE HI-FI! 


The sound chip supplied with the Amstrad is a 
scphisticated one allowing: 


- 3 channels and a ncise channel 
= 8 octaves 
- control of volume and tone 


To use these sophisticated facilities we have to 
learn some scphisticated commands. There are very few 
of them, but they are undeniably daunting at first. 
The commands are: 


SOUND 
ENV 

ENT 

ON SG() GOSUB 
RELEASE 


and there is cne function: 


SQ() 


The SOUND Command. 


In this chapter we will look at the SOUND commanc, 
leaving a @iscussion of the others to Part II. With 
this one command we tell the Amstrad what sound to make 
(pitch), how long to make it (duration), what stereo 
channel to put it out on (channel), and how loud to 
play it (volume). 


There are other features of the SCUND command but 
that will be quite encugh tc be gcing on with! 


Turn to Appendix VII of the Amstrad handbook, 
which lists sound frequencies together with their 
corresponding period number, and try the following to 
get the feeling of the command: 


SOUND 1,284 


This sounds the note known as A, a pitch of 440 
cps, or “International A’. We do not specify the pitch 
itself, but the period, 284, which is derived from it 
by the formula shown in Appendix VII. For now it is 
satisfactory to pick out our notes from the table 
provided. 
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We chose to put this sound out on Channel l, or A. 
We did not specify a duration or a volume, so defaults 
were assumed - 1/5th of a second and volume 12 
respectively. Repeat it with a longer duration: 


SOUND 1,284,100 


The duration is given in 1/100ths of a second, so 
the sound should have lasted 1 second this time. 


Let us experiment with the volume setting. This 
has a range from 0 (off) to 7 (full on) if a volume 
envelope is not being used, and 0-15 if you are using 
an ENV command. Try: 


10 FOR VOL = 0 TO 7 

20 SOUND 1,284,100,VOL 
30 NEXT VOL 

40 END 


We can also adjust the sound by means of the wheel 
on the right side of the Amstrad case. 


You may well wonder how the above BASIC program 
finishes well before the sound ceases. That will be 
explained in the next chapter. 


In case you are tiring of International A by now, 
let us try a few more notes: 


10 FOR PERIOD = 3822 TO 16 STEP -30 
20 SOUND 1,PERIOD,20,4 

30 NEXT PERIOD 

40 END 


Awful! A scale, though a very unsuccessful one! 
It seemed to spend ages in the depths before passing 
far too quickly through the heights. We clearly have 
to find a _ better way of moving up and down than _ by 
adding a fixed increment to a period. We could create 
a period-table, but let us instead use the a_ similar 
formula to that given in the handbook: 


10 FOR OCTAVE = -3 TO 4 
20 FOR NOTE = 0 TO 12 
30 GOSUB 1000 

40 SOUND 1,PERIOD,50,4 
50 NEXT NOTE 

60 SOUND 1,0,100,0 

70 NEXT OCTAVE 

80 END 
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1000 REM CALCULATE PERIOD GIVEN OCTAVE AND 
NOTE 

1010 FREQ = 261.626*(2* (OCTAVE+NOTE/12) ) 

1020 PERIOD = ROUND(125000/FREQ) 

1030 RETURN 


Much better! The thing sounds almost musical. 
We now have a formula that will return the period given 
the octave and the note. Far less trouble than looking 
it up in a period table. Progress! 


Our First Tune. 


Now that we have the means to calculate any note 
of the total range, how about a tune? We need to be 
able to feed the program details of the notes and 
durations and let it produce the sound. Of course we 
could look up the notes in Appendix VII, convert them 
to periods and enter them in data statements, but 
having worked out a formula, it would seem preferable 
to enter the notes as near to the original musical 
notation as possible and let the computer calculate the 
period for us. 


For those readers who have avoided a_ musical 
upbringing, the basics are explained in Part II, so 
they should perhaps continue with this chapter, enter 
the tune as given, and return to study it later having 
absorbed the elements of musical notation given later. 


The following program plays the tune “God Save the 
Queen’. Data statements representing the notes and the 
duration of each are stored in statement 100-199. The 
routine at 2000 converts each note from the semi- 
musical notation in the data statement to an octave 
number and and note number within the octave. 


The tempo is given as a single figure which is 
used in the calculation of the duration of each note. 
This makes it easy to adjust the pace of the tune by 
changing only one statement. 


-- Page 49 -- 


AMS TRAD EXPLORED 


1 REM GOD SAVE THE QUEEN 

S TEMFO = 2O 

7 ENT -1,1,1,3,2,-1,35,1,1,5 

10 READ notes. dur + 

15 IF notef="" THEN END 

20 GOSUB 2000 

25 GCTAVE = OCTAVE+2 

ZO GOSUB 1000 

40 SOUND 1,period,dur,4,9,1 

42 SOUND 1,PERIOD,1,0 

45 GOTO 10 

106 DATA CS,C,C5,C,D5,C,84,DC,C5,@,D5,C 

105 DATA ES,C,E5,C,F5,C,E5,0C,D5,Q@,C5,C 

iit: DATA DS,C,C5,C,B84,C,C5,C 

ae DATA C5,G,D5,@,65,@,F5,0,G5,C,65,C,¢ 
5,C,65,0C,F5,@,65,C 

120 DATA FS, C, Fs, c 7F5,C,F5,0C,£5,8,D5,C, 

£5 ,CyFS,a, ESQ, DS, @,cs,e@ 

125 DATA ES, 0C_FS5.0,65,C,AS,0,F5,8,E5,C, 

D5,C,C5,DC 

199 DATA "","" 

1000 REM calculate period from octave an 

d note 

1610 freq = 2$1.626*(2*(octavetnote/12)} 

1020 period = ROUND(125000/freq) 

1099 RETURN 

2000 REM calculate note, octave and Gura 

tion from note# and dur? 

2010 Z$=LEFTS (NOTES, 1) 

2020 note=INSTR("CCDDEFFGGAAB" ,Z#)—-i 

oa 8 e' if NOTE < O THEN OCTAVE = 5S : DUR 
1 : GOTO 2999 

2040 Z#=RIGHTS (NOTES, 1) 

2050 IF Z#="£" THEN NOTE = NOTE + i 

2060 IF Z#="b" THEN NOTE = NOTE - 1 

2080 GETAVE = VAL (MIDS (NOTES,2,1))-4 2 1 

F OCTAVE < O THEN OCTAVE = 1. 

2090 IF NOTE < O THEN NOTE = @ : OCTAVE 

OCTAVE - 1 

cO BUR=27 INSTR C"HDSQCM" , RIGHTS (DURF, 1) 

16 


i 
2/7 
NC DUR) =1 THEN 2200 
RC"DT" ,LEFT# (DUR, 13? 
THEN 2260 
THEN DUR=1.5*DUR 
ee DUR=DUR/> 


Jib bs bh bow boob 


If you feel the results resemble a violinist with 
the shakes, please bear with us. Improvements come 
later! 
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This program does not use the most efficient means 
of passing notes via the SOUND command, but it works, 
and serves to demonstrate the principle involved in 
playing a tune. More refinement will be added in Part 
II. 


Subroutine 1000 converts the octave and note into 
a period. The tempo can be adjusted by experimenting 
with statement 5. 


Different tunes could be played by changing lines 
100 to 125. The notation used for notes is "XYZ" where 
X is the note C to B, Y is the octave number 1 to 8 and 
Z is the optional indicator which shows whether the 
note must be sharpened or flattened. 


Altering the Volume. 


Our tune is certainly recognisable, but it is 
undeniably mechanical. But so is a fairground organ, 
or a Victorian musical box. The real challenge is to 
make computer sound as musical as its inevitable 
limitations will allow. Do not be discouraged, we have 
barely started! 


God Save the Queen was played at fixed volume. 
You have seen that we can vary the volume in the SOUND 
command. However we cannot vary it within one command, 
only between one command and the next. The ENV command 
allows us to alter the volume as the sound is’ being 
played and this can make a big difference to the 
effectiveness of the music. 


The ENV command needs a full discussion to itself, 
and is covered later, as is the ENT command which 
allows us to vary the pitch (ie. the period number) as 
the sound is being heard. An example was given in the 
tune above. 


Sound Summary. 


So far we have only dipped into the possibilities 
of the sound facilities, but I hope you can already 
appreciate the scope. In part II we extend the 
discussion to cover volume changes, pitch changes, 
sound queues, tunes for 2 and 3 separate voices, 
synchronisation and special effects. 


So, ‘Onwards, relentlessing pressing onwards” 
(with apologies to Terry Wogan)... 
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PART Il 


A 
VERSATILE 


NN 
This part delves further into the mysteries 
of programming the Amstrad’s Sound 
capabilities 
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CHAPTER 7 
MUSICAL NOTATION 


In the last chapter we introduced the basics of 
making music on the Amstrad and showed a program to 
play a simple tune. Since there are 3 music. channels 
we can add 2 more voices to create a far more 
satisfying sound. 


Before we do that we need to explain something of 
what is involved in capturing sounds on paper in a form 
that allows other people who have never heard the music 
to reproduce the composers intentions. 


The Elements of Musical Notation. 


If you are worried about not knowing musical 
notation I suggest you need not be. If you _ have 
mastered any of BASIC, hexadecimal or 280 assembler you 
can be assured that learning musical notation is 
trivial by comparison! 


The musical scale is conventionally divided into 
octaves, where the frequency of the top note is exactly 
twice the frequency of the bottom note. The octave is 
divided into 12 equal parts called semitones. 


In normal Western music, all the notes are 
selected from these 12ths of the octave, andaé_e scale 
consists in moving up and down in various combinations 
of semitones and whole tones. A tone consists of two 
semitones. 


Of course there is no divine law saying that an 
octave has to be divided into 12 parts, it is just our 
convention, and music in other parts of the world uses 
other intervals, such as quarter-tones - which we could 
reproduce on the Amstrad if we wished. 


A scale consisting of all semitones is called a 
chromatic scale: 
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1 REM CHROMATIC SCALE 

10 READ OCTAVE, NOTE 

20 IF OCTAVE = 99 THEN END 

30 GOSUB 1000 

40 SOUND 1,PERIOD,20,4 

50 GOTO 10 

60 DATA 1,0,1,1,1, 
1,9,1,10,1,11 

70 DATA 99,0 

1000 REM CALCULATE PERIOD FROM OCTAVE AND 
NOTE 

1010 FREQ = 261.626*(2* (OCTAVE+NOTE/12) ) 

1020 PERIOD = ROUND(125000/FREQ) 

1099 RETURN 


v 2341,4,1,5,1,6,1,7,1,8, 
71,12,2,0 


and if you have a piano you should see that a 
chromatic scale is played by starting on one note and 
playing all the notes, white and black, until you reach 
one octave above the first note. 


Each note of the octave is given a name. The 
first 7 letters of the alphabet are used to name the 7 
white keys in the octave. 


You will notice that most white keys are a_ whole 
tone apart, that is there is a black key in between 
which sounds a semi-tone above one white key and 
obviously a semi-tone below the white key above. But 
there is only a semi-tone between the keys E and F, and 
between B and C, hence no black key is required. 


Our chromatic scale happened to start on the note 
C because that is we used the frequency of C in our 
formula. That makes C note 0. To play the scale of C 
major adjust the data statement to read: 


60 DATA 1,0,1,2,1,4,1,5,1,7,1,9,1,11,1,12,2,0 
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That scale corresponds to the white notes on the 
piano keyboard, and the octave played started on middle 
C, which is so called because it is located roughly in 
the centre of a piano keyboard. The black notes play 
intervening semitones and the notation # (sharp) and 

(flat) is used after the note. # raises the note by 
a semitone and flattens it by a semitone. On a piano 
keyboard there is no distinction between, say ct and 
Ab. 


To write our music we use paper lined with 5 lines 
close to each other, called music staves. Then we put 
a sign at the beginning of each stave to show which 


lines represent which note. There are two such signs 
in common use for keyboard music, though more for some 
other instruments such as violas. The G clef shows 


that the second line up on the stave is a G, the G 
above middle C. So middle C lies just below the stave, 
and if we need to show middle C we place the note on an 
extra line of its own, a so-called ledger line. 


DEF GA BC 


The F clef shows that the second line down from 
the top of the stave is F below middle C, so this stave 
is best at showing lower notes than the G clef. 


If you look at piano music you will see that the 
right part mostly uses the G Clef which is most 
convenient for music above middle C, while the left 
hand plays deeper notes and uses the F clef. This is 
not an inviolate rule! 
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Now we have the basis to represent the pitch of 
the notes, but they also have to be assigned a 
duration. If we take a demi-semi-quaver as 1, a semi- 
quaver is 2 and so on up to 32 (semi-breve). Duration 
here is a relative not an absolute term, with the 
amount of time actually allocated to a note varying 
widely according to the tempo of the piece, the 
player ’s interpretation, etc. 


demi-semi-quaver 1 

J semi-quaver 2 
2 quaver 4 

‘a crotchet 8 
d minim 16 
o semi-breve 32 


The duration of a note can be increased by half by 
having a dot placed after it. So a dotted minim is the 
same time as a minim and a crotchet and counts as 24. 


Summary. 


Now we know how to represent pitch and duration 
values we can return to considering how to write tunes 
on the Amstrad. There is of course a considerable 
amount more that could be said about musical notation; 
we have not covered rhythm, tempo, phrasing, and so on, 
but any reader who has not previously encountered music 
should now be able to follow the discussion that 
follows and will hopefully be encouraged to delve 
deeper into what can be a a most enjoyable lifetime 
study. 
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CHAPTER 8 
VOLUME AND PITCH 


The ENV Command. 


If you play a note on the piano holding the key 
down for a few seconds, the note starts with a quick 
rise in volume, followed by a period during which the 
volume falls only slightly. Finally, the note decays 
and dies away very quickly when the key is released. 
It may be pictured: 


mzcro< 


TIME ——> 


and is frequently described in terms of Attack, 
Sustain, Decay, and Release, or ASDR for short. 


If we wish to produce a note electronically we can 
give precise values to ASDR in terms of the duration of 
each phase and the amount of volume ‘gained’ or ‘lost’, 
in other words, the length and angle of the lines in 
the above graph. 


The ENV command allows us to simulate this action 
fairly closely, since we can define up to 5 sections. 
To simulate a piano note 3 sections might be used, and 
a suitable envelope for a note lasting 2 seconds might 
be: 


fs steps of 3 each lasting 2 
i 5 steps of — MN 
? lasting2 ‘s 
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and this could be represented by: 
ENV 1,5,3,2,9,-1,20,5,-1,2 


where the first parameter is the envelope number, 
1 to 15, the first section 5,3,2 means 5 steps of 3 
each 2 units (1/100ths second) in length, followed by 
the second section 9,-1,20 - 9 steps each of -1 lasting 
20 units, and 5 steps of -1 lasting 2 units. 


Of course the steps are really a set of small 
jagged jumps rather than a smooth line, but the effect 
is approximately the same in most cases. 


To use the ENV command we add a fifth parameter to 
the SOUND command, so a command corresponding to the 
ENV command above might be: 


SOUND 1,284,200,0,1 


which selects 1 as the volume envelope number and 
0 as the starting volume. Although you can start the 
volume at any level you like, it often makes sense to 
start at 0 if you are using a ENV command, and 
therefore put all the volume manipulation in one place. 


For serious work it may well be worth constructing 
the following table to check your calculations: 


No. of Step Step Total End 

Steps size Lngth Lngth Volume 
Starting Volume (from sound command) 0 
Section 1: 5 3 2 10 15 
Section 2: 9 +1 20 180 6 
Section 3: 5: =) "2 10 1 


Although the starting volume is given in the table 
as 0, you should know that the first step in the ENV 
command is added to the volume before the sound is 
played, so the first sound actually heard will be at 
volume 3 in the above example. 


You can see why you need pencil and paper to set 
out volume envelopes with any accuracy. You need to 
check that the duration is correct and that the volume 
does not go over 15 or below 0. (If you do exceed the 
limits, no error will be generated, the volume merely 
wraps round to give a number between 0 and 15, but the 
result may not be what you were expecting). 
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Incidentally, the duration in the above note 
matches the 200 in the SOUND command, but what happens 
if there is a discrepancy between the duration in the 
SOUND command and that specified in the ENV command? 
The answer is that the duration in the SOUND command 
predominates, but there are one or two special cases. 
Consider the following table. 


----Duration in---- 


SOUND ENV 
100 100 Duration is 100, ie. 1 second. 
90 100 Duration is 90, ENV command 
will not be fully used. 

100 90 Duration is 100. The final 10 
100ths/second will sound at 
constant volume. 

0 100 Duration is 100. 
-5 10 The ENV command is used 5 times 


so the duration is 50. 


When heard on its own, ‘clicks’ as the volume 
changes rather mar its effectiveness, but used together 
with tone changes and with several voices it can infuse 
life into the music. 


Varying the Pitch ~- the ENT Command. 


Just as the ENV command is used to vary the 
volume, so the ENT command can be used to change the 
pitch while the note is playing. It has a similar 
syntax to the ENV command and can also contain up to 5 
sections. Each section is again described in terms of: 


number of steps, 
= size of step, 
oe length of step. 


A rapid change of pitch above and below the note 
is called vibrato. It is a technique used widely by 
instrumentalists and singers. A pianist, having a 
percussive instrument, cannot excercise control over 
vibrato, whereas a string, brass or woodwind player. 
can. 


So can the Amstrad, though it must be admitted 
that the results are somewhat mechanical. 


To experiment, reload God Save the Queen and make 
the following changes: 


7 ENT -1,1,1,8,1,-1,8 
40 SOUND 1,PERIOD,DUR,4,0,1 
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which instruct the system to use tone envelope 
number 1 (the sixth parameter of SOUND). The first 
parameter of ENT gives the tone envelope number as 1, 
but makes it negative to indicate that this envelope is 
to be repeated as long as the note lasts. Then there 
are 2 sections, the first containing 1 step of 1 
period, lasting 8/100ths second, the second again 
containing 1 step of -l, lasting the same time. 


The above, to my ear, sounds a pleasing and 


reasonably natural vibrato. You may disagree. In any 
case you can experiment. Try varying the pitch by 
more: 


7 ENT -1,1,2,8,1,-2,8 


This seems to me to be too extreme on long notes, 
though quite acceptable on short notes. (The degree of 
vibrato that is acceptable is a personal judgement!) 


Note that both these ENT commands are actually 
varying the pitch upwards only, and not below the note. 
To make a true vibrato, try: 


7 ENT -1,1,1,5,2,-1,541,1,5 


which brings the pitch below the note too. This 
is a restrained vibrato which should please most ears. 


Altering the step time parameter outwards will 
make the vibrato slow and lazy, while making it shorter 
will give a ‘tighter’ effect until you will probably 
decide that the sound is taking on a neurotic tinge! 


It “s For You! 
The ENT command is not only useful in music. fry: 


10 ENT -1,1,1,2,1,-1,2 

20 GOSUB 1000 

30 GOSUB 1000 

40 SOUND 1,0,200,0 

50 GOTO 20 

1000 REM 

1010 SOUND 49,70,50,15,0,1 
1020 SOUND 28,35,50,5,0,1 
1030 SOUND 42,17,50,5,0,1 
1040 SOUND 1,0,15,0 

1999 RETURN 


The acute observer may notice that the above sound 
is ‘out of tune’, as the period in line 1030 should 
ideally be 17.5. But so are most phones, so I am 
unrepentant! 
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Ample opportunity to enhance your programs with 
some interesting embellishments! 
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CHAPTER 9 
2 AND 3 PART HARMONY 


When we explained in chapter 6 how to program a 
tune, it was stated that the method shown was not the 
most efficient. In this chapter we explain an 
interesting facet of Amstrad BASIC which makes’ the 
programming of music much easier. 


Sound Queues. 


When experimenting with the Sound command you will 
have noticed that a BASIC program which uses_ sound 
frequently finishes before the tune - it appears to be 
able to ‘run ahead” a certain way. 


This is exactly what it does do. The sound 
command actually places instructions in a sound queue, 
and the operating system takes the sounds off the top 
of the queue and feeds them to the sound chip when it 
can. 


The sound queue seems to hold 4 sounds’ so the 
BASIC program will very quickly fill up the queve and 
then have to wait until the first sound has’ finished 
playing before the queue is ‘shuffled up’ by the 
operating system as the 2nd note is played. BASIC can 
then place the 5th note in the queue, and _ hangs 
impatiently around waiting to be able to put the 6th 
one on. 


This seems a wasteful way to handle things, so 
Amstrad BASIC has thoughtfully arranged for us not to 
have to worry about waiting. As long as we let the 
system know we wish to be informed when a slot in the 
sound queue becomes available, we can go away and 
sunbathe and BASIC will wake us up with a cup of tea 
when all is ready. This is effectively an interrupt, 
similar to the AFTER command we saw in chapter 2. 


So if we are feeding notes to channel 1 we say 
ON SQ(1) GOSUB 3000 
and whenever there is a spare slot in the channel 
1 queue our program will be interrupted and we will be 
diverted to 3000 where we can put another note onto the 


queue with the SOUND command and get back to whatever 
we were doing with a RETURN statement. 
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Before we reach the RETURN however we will 
normally want to issue another ON SQ(1) GOSUB 3000 
command so that the interrupt mechanism is primed 
again. That is, assuming there are more notes to play. 
Simple! 


This facility is particularly useful when we are 
adding music as the background to some other activity 
such as a game. It is, as far as I know, unique to 
Amstrad BASIC. 


The following simple example will illustrate the 
above points: 


10 ON SQ(1) GOSUB 3000 
20 GOTO 20 


3000 REM ADD TO CHANNEL 1 
3010 SOUND 1,284+7*8,300,4 
3020 J=J+1 

3030 PRINT J 

3040 ON SQ(1) GOSUB 3000 
3050 RETURN 


You will see the first few numbers being printed 
out very quickly as the first sounds are added to the 
gueuve, then the action is very much slower. Of course 
a real program would make line 20 do some useful work 
instead of looping. 


Synchronisation. 


Up to now we have only used a_ single channel, 
channel 1 or A. Let us branch out and try channel B 
and C as well: 


10 SOUND 1,284,200 
20 SOUND 2,338,200 
30 SOUND 4,426,200 


Note that channel C is not 3, as you might expect 
but 4, since this is a “bit-sensitive” parameter, and: 


1 turns on bit 0 channel A 

2 turns on bit 1 channel B 

4 turns on bit 2 channel C 

8 turns on bit 3 synchronise with channel A 
e 
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The above chord (a D-major triad if you are 
interested!) seemed to start all 3 notes 
simultaneously, but that is only because the BASIC is 
quick. Insert: 


25 FOR J = 1 TO 500 : NEXT J 


and you will see the problem. But we can avoid 
any trouble by using the synchronisation feature. 


Normally, when a sound is added to the queue by 
the sound command, it plays as soon as it reaches’ the 
top of the queue. But you can choose to attach extra 
bits or flags, which alter matters. 


If you send a sound to channel A but tell it to 
synchronise with channel B_ it will wait obediently in 
the queue until there is a sound at the head of the 
channel B queue which has been told to wait for channel 
A! Then, and only then, will the 2 sound queues 
release their notes and a glorious synchronised chord 
be heard. 


Try: 
SOUND 33,284,200 


Nothing will happen. We have entered a sound onto 
the sound queue, but we have turned on bit 5 of the 
first parameter as well as bit 1, and bit 5 means 
“synchronise with channel C’. 


If we now type: 
SOUND 4,426,200 


we hear a note on channel C, but there is” still 
nothing from channel A, because the note we sent to 
channel C said nothing about synchronising with A. We 
need to type: 


SOUND 12,426,200 


and this time we hear 2 notes sounded, because 
‘12° is bits 3 and 4, and means “send to channel C and 
synchronise with channel A’. 


The same technique is available for channel B_ so 


we can send sounds to different channels at different 
times knowing they will sound together. What a relief! 
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This is not only vital for the first note of a 
piece of music, but also for subsequent chords. In 
most pieces there will be notes of different duration 
in the various voices, and channel A may be wanting to 
play 32 notes in the time channel B is playing 8 and 
channel C 6! So some notes will be synchronised and 
some not. 


A Framework for Harmony. 


Armed with fresh knowledge, we will now write a 
harness that will enable us to write tunes in 2 or 3 
parts using synchronisation and sound queues. The tune 
chosen to test our harness is a Bourrée by Handel. 


(This program is available on tape from Kuma 
Computers). 


5S REM copyright (c) 1984 John Braga 

10 REM play a tune for 1 to 3 voices 

15 TRUE=-1 : FALSE=0 : DONE (1) =TRUE: DONE ( 
2) =TRUE: DONE (4) =TRUE 

20 NUMVOICE =3 

3O syncha=8 : synchb=16 : synchc=% 
40 TEMPO=4 

50 GOSUB 1000 : REM initialise 

60 ON 4-numvoice GOTG 70,80,90 

70 ON SQ¢4) GOSUB 4106 

Bo ON S@(2) GOSUB 4050 

9 GN SQ(1) GOSUB 4000 

Pac DONE (i} AND DONE (2) AND DONE (4) T 
HEN i1G ELSE 160 
110 INFUT "Again";= 


2 


Y" THEN 20G 

1=6 done(1)=0: done (2) =6: done (4)=C: note (1 
}=0: note (2)=0:ncte(4)=0:60TO 60 

END 

10O0Q REM initialise 

1010 DIM period(4,200) ,dur (4, 2003 ,synch ( 


4,200) 
1020 FOR j = 1 TO numvoice 
1020 channel = 2*(j-1) 


1040 numnotes=0 

1050 DONE (CHANNEL) =FALSE 

1060 IF CHANNEL=1 THEN RESTORE SGOO 
1070 IF CH@NNEL=2 THEN RESTCRE 5400 
toed IF CHANNEL=4 THEN RESTORE S700 
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1100 READ notet,cduration,synch? 
1110 IF note#="" THEN 1500 
GOSUB 2000 : REM get period from na 


numnctes = numnotestl 
period ichannei ,numnotes) =perios 
dur (channel ,nummctes? =durATIOhWstenp 


fo o6synch (channel ymumnoles +3 
2406 GOTG 1166 
1500 PERIGDUC(CHANNEL,O) = NUMNOTES 

1510 NEXT J 

1600 ENT -1,1,1,7,1,-1,7 

1999 RETURN 

SOOO REM calculate cuetave and mote fron 


| 
note=INSTR("C BG EF G 


ZE=LEFT# (NOTES, 1) 
a > 
IF NOTE=12 THEN OCTAVE=G : GOTG 2!5 


IF NOTE < © THIEN OCTAVE = 5 os Din 
GOTG 2999 


2060 
ZOBO 


2100 GGOSUE 
2110 SYNCH 
2120 FGR Ji = i To 
2130 IF MIDS(SYNCiie, 74: es! THEN. DVND 
=SYNCH+S YNCHA 

21430 IF MIDS(SYNCHE,7:,22=°8" THEN Oech: 
=SYNCH?SYNCHE 

215 IF MIDS(SYNCH, CL, Lis" O" THEN DeRose 
=SYNCH+SYNCHC 

21460 NEXT Ji 

79S RETURN 

3000 REM calculate period from octave an 
d note 

3005 IF NOTE=12 THEN PERIOD=0 : GOTO 397 
9 

BOLO freq=261.626# (2° (octavetnote/si2i: 
2020 period = ROUND(125G600/freq) 

3999 RETURN 

4000 channel=1 

4040 GOTO 4206 
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channel=2 

SOTO 4200 

channel =4 

NOTE (CHANNEL) =NOTE (CHANNEL? +1 

vol=5 

TONE=0 

4210 SGUND CHANNEL+SYNCH (CHANNEL , NOTE (CH 
ANNEL) ) , PERIOD (CHANNEL , NOTE (CHANNEL)? , DU 
R (CHANNEL , NOTE (CHANNEL) ) , VOL ,O, TONE 

4220 IF NOTE(CHANNEL) ?= PERIOD (CHAR WNEL , 
0) THEN DONE (CHANNEL) = TRUE : GOTO 49°99 
4200 J=CHANNEL 

4s IF J? THEN J=3 

ON J GOTO 4400,4420,4440 

ON SQ(1) GOSUB 4000 

GOTO 4999 

ON SQ(2) GOSUB 4050 

GOTO 4999 

ON S@(4) GOSUB 4100 

RETURN 

REM data for channel a 

DATA DS5,6,C,R,2,,05,7,C,R,1 11 B4151C 

; >,,C5,4,C, B4, 4,04, 4,C, 64°3.,R ’ 
S0iS DATA ES.é, C812, .55,14, C,R,2,,FS£,4 
ses ESySeaReis” 


SO2O DATA BS,{5,C,Ry3y9C5,4,0,B4, 35 5Rylyy 
A4,4,C,B4, at agree C,A4,3,,R,1," " 
SO2S DATA B4,6,C,Ry2y ,G4,14,0,Ry 2, 4,8, 


Ge, Rye" 

5030 DATA B4,4,C,C5£,4,,D5,4,0,24,5, ,A,1 
,,C5£,4,C,D5,4, ,E5,4,C,C5£,5,,R,1," " 
SO3S DATA DS,4,C,E5, 4, .F5E, 4,C, Os pera ea 
765,4,C,F5£, 4,,65,4, Cc ES, 3,,R, es 

bao DATA See ea ne ee as 
,2,F,4,,05£,4,C,R,4,,D5,20,C,R,4," " 
SQS0 DATA AS, 6, C,R,2,,AS,8,C,FS£,6,0,R,= 
»,99,4,C,F5£, 4,,E5,4, C,05,5,,R,1," " 
SOSS DATA G5,4, Cc WRi2, B55 14, C,R,2,,65,7 
ESky tye" 

S060 DATA DS£,8,C,E5,8,C,F5£,7,C,h,1,,65 
14,C,AS,5,,R,1," " 

5065 DATA G6S,6,C,R,2,,£5,14,C,R,2,, 05,14 
1CyR,2," " 

S070 DATA C5,4,0,84,3,,R,1,,55,9,0,R 255 
14,C 

5075 DATA R,2,,84,4,C0,A4,5,,8,1,,54,6,0, 
R,2,,05,6,C,R,2," " 
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REM 
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Bourrée Commentary. 


The main body of the program is from 10 to 200. 
Some program variables are initialised and a jump is 
made to 1000 subroutine, where arrays containing the 
notes are set up. Then the interrupt subroutines are 
primed in lines 70-90 and the program loops at 
statement 100 until all voices have finished playing. 


Subroutine 1000-1999 sets up 3 arrays, PERIOD, DUR 
and SYNCH, containing values for each note for’ each 
voice. The values are period, duration and 
synchronisation details. The input for the notes is 
read from data statements at 5000- and the’ subroutine 
at 2000-2999 is used to convert a note into a _ period 
value. The RESTORE statements at 1060-1080 are 
redundant if all 3 voices are played, but are useful if 
you are isolating 1 alone (see below). 


Subroutine 3000-3999 is called from _ subroutine 
2000. 


Subroutine 4000-4999 contains statements that are 
called by BASIC whenever there is a spare space on the 
queue. It contains the SOUND command that puts’ the 
notes from the arrays set up by 1000-1999 onto the 
sound queues. Note that the music interrupt routine 
has to reprime itself before exiting with a RETURN. 


The DATA’ statements start at 5000 and are split 
into 3, one section for each voice. Note the use of R 
to create a ‘rest’, ie. period of silence. 


Interpretation. 


It is fascinating how much variation can be given 
to the Bourrée (and of course every other tune) by 
small changes to the DATA statements. The following 
records some of the changes I experimented with; there 
are many other things you might care to try. 


You may wonder why the above DATA statements 
contain so many rests, and why crotchets are given 
duration values of anything from 4 to 8. The answer is 
that some notes are intended to be played ‘staccato’ 
(short and detached) and are given smaller durations. 
The full value is made up by a following rest in the 
case of channel A, but for channel C this is not 
usually necessary since synchronisation causes’ the 
channel to wait for channel A anyway. 
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Very short rests are useful for causing the note 
following to sound ‘articulated’ rather than slurred. 
There is considerable scope for experimenting with note 
durations and rests in the above piece. You can change 
the interpretation markedly if you wish. 


A tone envelope is used by channels B and C_ but 
not by A, since I feel the smallest vibrato achievable 
is excessive on the higher notes. One would ideally 
like to vibrate with units of less that 1 period in the 
upper register, and this is unfortunately not possible. 
But experiment with the ENT command at 1600 and with 
statement 4207 by all means. Try: 


4207 TONE=0 
for no vibrato, followed by: 
4207 IF CHANNEL=4 THEN TONE=1 ELSE TONE=0 


for a vibrato on the lower channel only, followed 
by: : 


4207 TONE=1 


for a vibrato on all3- or try another ENT 
command altogether! 


Experiment too with the volume control in 
statement 4205. There is no ENV command but yeu can 
try making the top line more prominent if you wish. 
Try: 


4205 IF CHANNEL=1 THEN VOL=5 ELSE VOL=4 
or something of the sort. 


Note how the last bar is entered (statements 5115, 
5410 and 5790). There is a short synchronised rest at 
the start of the bar which is, strictly speaking, out 
of tempo. This gives the effect of a slight slowing 
down. Then the notes are slightly “splayed” from the 
bass up to give an arpeggio effect. This style is 
particularly common in harpsichord music, for which 
instrument this bourrée is written. Finally the last 
note is given a longer duration than written. This is 
not a mistake! 
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Entering a Tune. 


Of course the above program can be used as the 
basis for creating many pieces of music. In most cases 
all that will be needed is to enter fresh data 
statements at 5000-5399 (channel A), 5400-5699 (channel 
B) and 5700-5999 (channel C). 


Creating a tune is a laborious process and is best 
done in stages. First load the Bourree program and 
delete all the data lines except the “terminators” at 
5399, 5699 and 5999. 


Enter the data statements for the channel A voice 
first and then play them using the following program 
alterations: 


20 NUMVOICE = 1 
30 REM ... 


which effectively removes the synchronisation. 
Check the values of the notes and their duration by 
ear. Experiment with small rests to get the 
articulation right. You will find it helps 
considerably if you keep the data statements short, 
usually 1 per bar; this makes it easier to track 
mistakes. You can alter 2 statements which help 
“debug” the tune: 


1105 PRINT NOTES;" "; 
1505 PRINT 


Then insert the bass part. It is of little use 
playing this on its own since it will be synchronised 
with channel A, and will sound very strange if you REM 
statement 30. But alter lines 20-30 back to their 
correct values and enter: 


4205 IF CHANNEL=4 THEN VOL=4 ELSE VOL=0 


which makes it possible to hear the bass part 
only. Again, juggle with the articulation. Then 
change line 4205 so that you hear both parts together. 


Add the middle part if required in the same way, 
playing it first separately, then with the top part, 
and finally with both other parts. All this can be 
done by use of statement 4205. 
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Musical Judgement. 


I hope the preceding dissertation shows clearly 
how difficult it would be to make a computer play 
classical music ‘musically’. The more one tries to 
create a pleasant effect, the more one realises how 
much the performer deviates from the written page in 
the interests of musicianship. A musician, though, 
has trained to a pitch whereby he does not need to 
think consciously about altering the duration of a 
note, he knows that it “sounds right’. We, on the 
other hand, have to find and edit every note in a 
string of DATA statements! 


Several people may criticise the above program on 
the grounds that the sound is “electronic” and _ the 
effect mechanical despite our efforts to humanise it. 
It is perfectly true that the musical effect will never 
approach realism. But surely the value lies in our 
appreciating precisely that, and in struggling to 
recognise what the human performer adds so that we can 
get closer to what he achieves. Our appreciation of 
music and of the musician’s art can only be enhanced by 
the ‘exercise. 
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CHAPTER 10 
SPECIAL EFFECTS 


Up to now we have considered the sound chip almost 
purely from a musical angle. How about its use for 
embellishing games? 


The Noise Channel. 


There is a further parameter to the SOUND command 


which we have not yet used in this’ book. A noise 
period can be added to the sound and the parameter 
varies from 1 to 3l. Try the following to see the 
effect: 


10 FOR J= 1 TO 31 
20 SOUND 1,0,100,4,0,0,J3 
30 NEXT J 


and you will see that the noise gets “darker” the 
higher the noise period number. Try: 


5 FOR J=1 TO 2 

10 FOR J1=16 TO 31 

20 SOUND 1,0,5+J1,5,0,0,J1 
30 NEXT Jl 

40 FOR J1=31 TO 12 STEP -1 
50 SOUND 1,0,7,6,0,0,J1 

60 NEXT Jl 

70 NEXT J 


and you will hear the gale lashing itself into a 
fury... 


Footsteps, Bombs, Saws... 


The above example used the noise channel on its 
own. However it can be combined with normal tones. 
Try: 


10 FOR VOL=1 TO 7 STEP 0.25 
20 SOUND 1,95,1,VOL,0,0,1 
30 SOUND 1,400,1,VOL,0,0,31 
40 SOUND 1,0,20,0 

50 NEXT VOL 


This simple example lends itself to many 
-Mariations and can be used to effect in many games’ to 
resemble footsteps, ticking bombs, watches, etc. (You 
need to have a fairly strong imagination in some 
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cases). 


The next sound reminds me of a circular’ saw 
starting on some tough timber: 


10 ENT 1,10,1,8 

15 ENV 1,5,1,5,1,0,200 

20 SOUND 1,50,200,6,1,1,3 
30 SOUND 1,48,50,5,1,1,6 

35 SOUND 1,48,10,5,1,1,1 

40 SOUND 1,50,150,6,1,1,3 


I leave it to you to put names to the following 
hideous noises, but I expect you can find uses’ for 
them... 


10 FOR J=1 TO 
20 ENV 1,1,1 
30 ENT -1,1, 
40 SOUND 1,2 
50 NEXT J 


-5,10,1,1,3 


10 ENT -1,1,4,2,1,-4,2 
20 SOUND 1,50,100,4,0,1 


This is a prime area for experimentation. There 
are few rules, but a clear understanding of the syntax 
of the various sound commands will help you discover 
many new and fascinating sounds. 


Hold and Flush. 


When it comes to adding sound to games, there is a 
further trick to the versatile SOUND command that we 
have not yet discussed. You will remember that each 
channel has a sound queue. If you issue a sound with a 
“flush” bit on, any sounds already in the queue, and 
even those currently sounding, are instantly terminated 
and the sound is heard. So if you are synchronising a 
bomb explosion to some action on the screen you can 
link the sound directly to the vital keystroke. 


The flush bit is bit 7 so you might have a 
statement such as 


10 FLUSH = 128 


1010 SOUND 1+FLUSH,... 


Bit 64 is called the hold bit, and if on causes 
the sound (and any in the queue behind it) to sit and 
wait in the queue until released. The command to 
release is, not surprisingly, the RELEASE command, so: 
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RELEASE 4 


will release any sounds waiting on channel C 
without affecting any other channels. So you can prime 
the sound queues and then by a single RELEASE, let all 
hell loose... 


If there are no sounds waiting on the channel at 
the time the RELEASE is issued, no harm will be done. 
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PART Ill 


THE 
GRAPHIC 
POSSIBILITIES 


This part returns to the delights of the 
Amstrad Graphics, and explores some 
possibilities in colour manipulation and 
animation, besides giving examples of 

the use of graphics for graphs and charts. 
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CHAPTER 11 
ANIMATION AND ILLUSION 


In the simplest form of animation we want to move 
a character round the screen. To move a man across the 
screen we will need to print him, then blank him out, 
and print him in ‘the next square. 


5 MANS = CHR$(250) 

10 CLS 

20 Y = 23 : LOCATE 1,Y : PRINT MANS; 
30 FOR X = 1 TO 39 

40 LOCATE X,Y 

50 PRINT " ";MANS; 

60 NEXT X 


You may notice that the figure seems to move in a 
slightly jerky fashion, with gaps. If you insert: 


45 CALL &BD19 


the action is noticeably smoother. This is 
because you are now using an operating system routine 
which waits for “Frame Flyback” to occur. This is a 
time when the system is not refreshing the screen, so 
it is the best time for you to write to the screen. 


Frame Flyback is time critical, and therefore the 
results will be different according to the locaticn 
you are addressing. Alter line 20 to 

20 Y=8... 


and you will see what I _ mean! So some 
experimentation is called for. 


A Bouncing Ball. 
Extending the simple technique shown above we can 
write a program to send a ball bouncing around the 


screen. When it hits the border it bounces back at a 
suitable angle. The basic program is: 
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10 CLS 

20 BALLS = CHR$(231) 
30 xX = 20 : Y = 12 

40 XDIR = 1: YDIR = 1 


50 LOCATE X,Y : PRINT " "; 

60 X = X+XDIR : Y = Y+YDIR 

70 $F X<l THEN X = 1: XDIR = 1 

80 IF X>40 THEN X = 40 : XDIR = -1l 

90 IF Y<l THEN Y = 1: YDIR =1 

100 IF YDIR>25 THEN Y = 25 : YDIR = -1l 


110 LOCATE X,Y 
120 PRINT BALLS; 
130 GOTO 50 


This works, but could be improved. Try adding 


15 BORDER = 6 
115 CALL &BD19 


On some lines the ball is still being obliterated 
before it has been seen! Try slowing it down a little. 


125 FOR J = 1 TO 5 : NEXT J 


Much better! If anyone wants a game using a 
bouncing lemon, we have just the thing... 


The line at 125 is rather wasteful. It would be 
better in a real game to make the above routine a 
separate subtask which could be kicked off at suitable 
intervals such as 


EVERY 10 GOSUB ... 


and a little experimenting would give us the most 
suitable speed. 


How about adding some variety, some obstacles to 
divert our ball? At present we are changing direction 
only if we have reached the edge of the’ screen. To 
handle obstacles we will need some method of testing 
whether the screen position into which we want to move 
is clear before we actually make the jump. This is not 
provided by BASIC (unless you count the TEST command 
which could be pressed into service), but there is an 
operating system routine call TXT RD CHAR which does 
exactly what we want by reading and returning the 
character at the current location. The games in 
chapters 12 and 13 both use that routine and you’ can 
copy it into your own programs. 
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Juggling Screens and Inks. 


The technique of blanking and drawing is used in 
Many games. It is simple to program and effective in 
use, but it does of course have limitations, since if 
what you are trying to move is bigger than one 
character you will have to blank out several squares 
and redraw them, making a slower routine. 


There are other ways of of making objects move 


around the screen. In chapter 5 it was shown that we 
could keep 2 screen areas in memory and flit between 
them. This was virtually instantaneous, so could give 


the impression of fast movement. Draw an object in one 
place using the normal screen area at &C000, and draw 
it at a slightly different place using the area at 
&4000. Then merely switch from one to the other. 


That gives us one advantage - the object can _ be 
far bigger than one character. But it also has a 
disadvantage:- it will usually take a few seconds’ to 
draw the character in the first place so repositioning 
the character can be slow. Advanced programmers could 
expand this idea by scrolling the screen area so that 
the character appears to move, or by POKING directly 
into one screen area while the other area is being 
displayed. Such techniques are generally found in the 
better arcade games, and are certainly programmed in 
assembly language. 


At the end of chapter 4 we touched on the 
judicious use of inks to create the illusion of 


appearing and disappearing objects. If we are in mode 
1 we have 4 colours at our disposal. One is normally 
the background, so that leaves 3 to draw with. If we 


set them all to the same colour as the background, we 
can draw 3 different (non-overlapping) figures on the 
screen, one with each pen colour, but none will appear. 
The screen is apparently blank. Then by turning each 
ink on and off in succession we can make an object 
appear and disappear at will, ie. to move around! 


If of course we use mode 0, and 2 screen areas, we 


can draw 15 figures in each area and show a figure in 
30 different locations... 
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Multiple Planes. 


All this may be very useful in some circumstances, 
but you will have noticed that the figures must not 
overlap, or one deletes the other. How can we create 
the illusion of one object appearing from _ behind 
another? 


Let us imagine 3 planes, a background, midground 
and foreground. What we need to do is to be able to 
show: 


og background (a single colour) 

= an ebject in midground (obscuring the 
background) 

- an object in foreground (obscuring the 
background) 

- an object in foreground (obscuring both the 
midground and the background). 


ie. 4 separate states. And in mode 1 we have 4 
separate inks, which should set you’ thinking. How 
about using ink 0 for the background, ink 1 for the 
midground, and inks 2 and 3 for the 2 states of the 
foreground? 


Sounds promising, but how can we decide quickly, 
when writing in the foreground, whether we need to use 
ink 2 or ink 3 in a particular place? And how about 
deleting an object from the foreground without also 
deleting the midground figure it may be hiding? 


There has to be an answer to this, and of course 
there is (otherwise I would hardly have _ bothered 
leading up to it!) The answer lies in the ‘Graphics 
Ink Mode’. 


We have not mentioned this up to now. When you 
write a character or draw a line using, say, ink 1, you 
will perhaps have assumed that all the necessary pixels 
along the route were set to ink 1. And so indeed they 
are if Graphics Ink Mode is set to normal mode, but not 
necessarily if it is set to another state! It has 4 
states and in 3 of them the new ink reacts in some way 
with the old. 


State 0 - (Force Mode). The new ink overwrites 
the old. This is the normal state, and 
the one we have always used up to now. 


State 1 - (XOR mode). The new ink is exclusive- 


ORed with the old ink and the pixel 
drawn in the resulting ink. 
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State 2 - (AND mode). The new ink is ANDed with 
the old ink. 


State 3 - (OR mode). The new ink is ORed with the 
old ink. 


(If you need to revise the meanings of AND, OR and 
XOR see the Amstrad handbook, chapter 4) 


So let us imagine we have set the graphics ink 
mode to state 3 - the OR mode. Now if we have our 
background in ink 0 and our midground in ink 1 we can 
write our foreground in ink 2. We never actually write 
with ink 3 at all. The result will be: 


Old Ink New Ink Result 
0 (background) 0 0 (background) 
0 1 1 (midground) 
0 2 2 (foreground) 
1 (midground) 1 1 (midground) 
1 2 3 (foreground 
obscuring 


midground ) 


Inks 2 and 3 must be set to the same colour of 
course, so that they look the same, but they are 
in fact different, since we must be able to tell the 
difference when we come to delete them! As far as we 
are concerned, though, we set our pen to ink 2 and 
write merrily away, with the resulting pixels being set 
to ink 2 or 3 as dictated by the existing colour at 
that location. 


What we have done is sacrificed a colour from our 
set of 4 and substituted the ability to handle 3 planes 
instead. 


How about deleting a foreground object that 
partially obscures a midground object? Or deleting a 
midground object without leaving a hole in the 
foreground? No problem. We merely switch the graphics 
ink mode to state 2 (AND mode) and select the 
appropriate pen colour, 2 (for midground delete) or 1 
(for foreground delete). Suppose we wish to delete a 
midground object. We use ink 2 in our pen and _ the 
results are: 


Old Ink New Ink Result 
1 (midground) 2 0 (background) 
3 (foreground 2 2 (foreground) 
obscuring 


midground ) 


-- Page 85 -- 


AMSTRAD EXPLORED 


So foreground is apparently untouched (though in 
reality changed from 3 to 2). Similarly, if we stay in 
Graphics Ink State 2 and use ink 1 in our pen, we can 
delete a foreground object without disturbing the 
midground: 


Old Ink New Ink Result 
2 (foreground ) 1 0 (background) 
3 (foreground 1 1 (midground ) 
obscuring 
midground) 


The following program is useful to verify the 
above. Note that transparency is also set on. 


10 MODE 1 

20 INK 0,1 : INK 1,24 : INK 2,20 : INK 3,6 
PAPER 0 : PEN 1 

25 PRINT CHR$(22)+CHRS$(1); : REM SET ON 
TRANSPARENCY 

30 INK 1,6 : INK 2,24 

35 FOREPEN = 2 : MIDPEN = 1 : FORERUB = 
1 : MIDRUB = 2 

40 PRINT CHR$(23)+CHRS$(3);: REM SELECT 
GRAPHICS INK STATE 3 (OR) FOR 
DRAWING FOREGROUND OR MIDGROUND 
FIGURES OR TEXT. 

50 PENCIL = FOREPEN : GOSUB 1000 : REM 
DRAW IN FOREGROUND 

60 PENCIL = MIDPEN : GOSUB 2000 : REM 
DRAW IN MIDGROUND 

65 LOCATE 10,25 : PRINT "Press any key "; 

70 ZS=INKEYS : IF Z$="" THEN 70 

80 PRINT CHR$(23)+CHRS$(2); : REM SELECT 
GRAPHICS INK STATE 2 (AND) FOR 
DELETING FOREGROUND OR MIDGROUND 
FIGURES OR TEXT. 

90 PENCIL = MIDRUB : ‘Gosub3} 2000 : REM 
RUB OUT MIDGROUND rFrIGURE 


100 PRINT CHR$(22)+CHR$(0); : REM SWITCH 
OFF TRANSPARENCY 

110 PRINT CHR$(23)+CHRS$(0); : REM SELECT 
NORMAL GRAPHICS INK STATE (FORCE) 

120 END 


1000 REM DRAW OR UNDRAW TEXT 

1010 LOCATE 20,12 

1020 PEN PENCIL 

1030 PRINT ” This text is in the 
foreground"; 

1999 RETURN 
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2000 REM DRAW OR UNDRAW TRIANGLE 
2010 MOVE 100,100 

2020 540,100,PENCIL 

2030 FOR J = 100 TO 540 STEP 2 
2040 MOVE 320,360 

2050 DRAW J,100,PENCIL 

2060 NEXT J 

2999 RETURN 


This technique is a powerful one and well worth 
exploring! 


Now you see it, now you don’t! 


The same sort of trick is used in the following 
program which shows how 2 figures can be drawn in the 
same location, then displayed alternately to give the 
impression of vanishing and reappearing: 


10 MODE 1 : DEG 

20 GOSUB 1000 : REM DRAW IMAGE 1 
30 GOSUB 2000 REM DRAW IMAGE 2 
40 GOSUB 6000 REM DRAW CAPTION 
50 FOR SCREEN 1 TO 10 

60 GOSUB 3000 REM DISPLAY IMAGE 1 
70 GOSUB 4000 REM DELAY 

80 GOSUB 5000 REM DISPLAY IMAGE 2 
90 GOSUB 4000 REM DELAY 

100 NEXT SCREEN 

110 INK 0,1 

120 INK 1,24 

130 INK 2,20 

140 INK 3,6 

150 PAPER 0 

160 PEN 1 

170 PRINT CHR$(23)+CHR$ (0); 

180 END 

1000 REM DRAW IMAGE 1 

1010 PRINT CHRS$(23)+CHRS$(3); 
1020 FOR Z = 1 TO 360 

1030 PLOT 320,200,1 

1040 DRAW 320+90*COS(Z),200+90*SIN(Z),1 
1050 NEXT Z 

1999 RETURN 

2000 REM DRAW IMAGE 2 

2010 PRINT CHR$(23)+CHRS$(3); 
2020 PLOT 100,100,2 

2030 DRAW 540,100,2 

2040 DRAW 320,360,2 

2050 DRAW 100,100,2 

2060 MOVE 320,100 

2070 DRAW 320,360,2 

2999 RETURN 


I] 8 oe 
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3000 REM DISPLAY IMAGE 1 
3010 INK 0,2 

3020 INK 1,1 

3030 INK 2,2 

3040 INK 3,1 

3999 RETURN 

4000 REM DELAY 

4010 TM=TIME+300 

4020 WHILE TIME < TM 
4030 WEND 

4999 RETURN 

5000 REM DISPLAY IMAGE 2 
5010 INK 0,4 

5020 INK 1,4 

5030 INK 2,0 

5040 INK 3,0 

5999 RETURN 

6000 REM PRINT CAPTION 
6010 LOCATE 18,24 

6020 PRINT CHR$(23)+CHRS(0); 
6030 PEN 3 

6040 PRINT "This is a caption" 
6999 RETURN 


Note that the above program changed the 
background, but that is not necessary, and it will 
improve the illusion in many cases if you keep the 
background the same. 


Note also that the caption appears with both 
images. 


The above techniques are only small examples of 
what can be achieved. An understanding of these 
methods is essential if you want to experiment with 3-D 
drawing, rotating solid objects, proportional drawing, 
etc., etc. 


Future Horizons. 


Before we leave this subject, consider for a 
moment the fact that we have been using mode 1. How 
about experimenting with mode 0, which would allow us 
the use of 16 inks. Instead cf 3 planes, how about 4? 
We would need: 


Background 

Rearground 

Midground 

Midground obscuring rearground 

Foreground 

Foreground obscuring rearground 

Foreground obscuring midground and rearground 
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That is 7 of our inks. We could perhaps use the 
others for different foreground colours, or for more 
than one midground colour, or for making foreground 
objects appear and disappear, etc. You will need 
pencil and paper to experiment with the effects of 
ORing various inks. Draw a column for the old ink, one 
for the new and one for the result... You will find 
many combinations are possible. 
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CHAPTER 12 
GAME NUMBER 41 — HUNGRY HEFFALUMP 


Computer Games - Arcane or Arcade? 


I make no apologies’ for presenting games! 
Properly viewed they can be highly amusing and 
educaticnal. The programming skills needed to make an 
attractive game are of the highest, and many 
programmers have learned the skills precisely because 
they were driven tc create better and better games. 


People who denigrate arcade games generally see 
only the (admittedly limited) end-result and miss_ the 
effort that has gone into its creation. Most 
programmers spend very little time playing the game 
that results from their labours, they are too busy 
planning the next achievement. 


With apologies to A.A.Milne. 


The first game we have depicts a simple-minded 
heffalump that has its lair in the north-east corner of 
a wood. As I need hardly remind you, a _heffalump’s 
sight is poor and he relies heavily on sense of smell 
to search out his prey. 


His victims in this case are a group of explorers 
who are trying, one by one, to cross the wood from the 
north-west corner to the south-east, where there is a 
river. The heffalump has a distinct aversion to water, 
so if they can plunge in, they are safe and can whistle 
a scornful victory theme to show their relief. 


You, the player, control the direction of the men 
by using the arrow keys. Once set in one direction the 
men rush straight ahead in blind panic, rebounding off 
trees, and ne doubt looking fearfully over their 
shoulder for signs of the blundering monster. They 
seem to be committed to taking a direct approach, 
rarely deviating from a straight line, and showing a 
strong liking for right angles. 
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The monster, proceeding by smell, is equally prone 
to blundering into trees, but possessing an even 
smaller brain than his potential victims, he does not 
seek a way round obstacles, but pushes in frustration 
in the direction he feels he ought to go. As the game 
proceeds, however, his speed over the ground improves 
dramatically, as a result either of rage at his victims 
escaping, or of an increasing taste for blood. As the 
last man leaves the saftey of the edge, he is probably 
doomed, for the beast seems possessed of a frantic 
energy... 


By now you should have gained an impression of the 
intellectual depth of this game, and we can proceed to 
the programming. 


Program Commentary. 


The main program thread is a short one, from 5 to 
170. Lines 10 - 40 set the scene, lines 50 to 120 form 
the body of the program and lines 130 to 170 are _ the 
conclusion. 


5 REM HUNGRY HEFFA COPYRIGHT (C) 1984 JOHN 
BRAGA 

10 GOSUB 1000 : REM INITIALISE 

20 GOSUB 2000 : REM DRAW BORDER 

30 GOSUB 2500 : REM DRAW FOREST 

40 GOSUB 3000 : REM PLACE HEFFA 

50 FOR MAN = 1 TO NUMBEROFMEN 

60 GOSUB 3400 REM START MAN 

70 GOSUB 3800 REM START HEFFA 

80 GOSUB 4000 REM MOVE MAN 

90 GOSUB 5000 REM CLEAN UP 

120 NEXT MAN 

130 GOSUB 6000 : REM FINAL MESSAGE 

140 CLS 

150 PEN 1 

160 SPEED KEY 20,3 

170 END 


se ae 08 oe 


The conclusion could restore the original colours 
if you wish. 
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1000 REM INITIALISE 

1010 MANS=CHR$ (249) : EDGES=CHR$ (143) 

1020 NUMBEROFMEN = 10 

1040 TREES = CHR$(229) : NUMBEROFTREES = 40 

1050 RIVERS$=CHR$(207) : HEFFAS$=CHRS$ (184) 

1060 TOPLINE=2: BOTTOMLINE=25 : LEFTLINE = 1: 
RIGHTLINE = 40 

1070 HEFFAINTERVAL = 5 

1080 TRUE = -1 : FALSE = 0 

1090 ESCAPED = 0 : CAPTURED = 0 

1100 MODE 1 

1110 INK 0,9 

1120 PAPER 0 

1130 INK 1,24 

1140 PEN 1 

1150 INK 2,20 

1160 INK 3,6 

1170 SPEED KEY 4,2 

1200 MEMORY &AB77 

1210 RESTORE 1250 

1220 FOR J = 1 TO 8 

1230 READ X : POKE HIMEM+J,X : NEXT J 

1240 DATA &CD,&60,&BB,&32,&7F,&AB,&C9,0 

1250 RDCHAR = &AB78 : CHREAD = &AB7F 

1999 RETURN 


1000 is the initialision subroutine. Since it is 
only executed once, it might be more correct to include 
it in the main line code, but it is tidier to keep all 
initialisation statements in one place. 


It is expected that you will want to experiment 
with many of the variables in this game, and to add new 
embellishments. Numberofmen in line 1020 can be set to 
any suitable number. 


In line 1060 the borders of the game are set, but 
you could experiment with mode 2 and an 80-column game 
by altering this line and line 1100. Of course you 
will have to alter the INK and PEN statements to take 
account of the fact you will then have only 2 colours. 


Line 1070 helps to control the speed of the 
heffa’s reactions. Experiment according to your 
preference and_ skill level. Those who hate losing 
should set it to 10 or more...See also line 3805. 


The SPEED KEY statement takes advantage of the 
fact that there is a very useful Amstrad feature which 
governs the speed at which the keys react to your 
touch. The only snag of this approach is that if you 
are running this program and have made a typing error, 
you will find the keyboard is almost uncontrollable! 
To avoid problems, enter the statements: 
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2 ON 
3 ON 


ERROR GOTO 200 
BREAK GOSUB 150 


200 PRINT “ERROR";ERR;" AT";ERL 
210 GOTO 150 


The Drawborder subroutine is very straightforward 
and needs no comment: 


2000 REM DRAWBORDER 
2010 FOR J=LEFTLINE TO RIGHTLINE 
2020 LOCATE J,TOPLINE : PRINT’ EDGES; 
2030 LOCATE J,BOTTOMLINE : PRINT EDGES; 
2040 NEXT J 
2050 FOR J = TOPLINE TO BOTTOMLINE 
2060 LOCATE LEFTLINE,J : PRINT EDGES; 
2070 LOCATE RIGHTLINE,J : PRINT EDGES; 
2080 NEXT J 
2100 RIVERXPOS = RIGHTLINE : RIVERYPOS = 
BOTTOMLINE - 3 
2110 LOCATE RIVERXPOS,RIVERYPOS : PRINT 
RIVERS; 
2499 RETURN 
Next comes the routine that adds the trees. You 
should perhaps experiment with the number of trees 
drawn. 
2500 REM DRAWFOREST 
2510 RANDOMIZE TIME 
2520 FOR J = 1 TO NUMBEROFTREES 
2530 X%$=RND(1)*RIGHTLINE + LEFTLINE: IF 
X%>=RIGHTLINE OR X% <= LEFTLINE 
THEN 2530 
2540 Y%$=RND(1)*BOTTOMLINE+TOPLINE: IF Y% >= 
BOTTOMLINE OR Y% <= TOPLINE THEN 
2540 
2550 LOCATE X%,Y% : PRINT TREES; 
2560 NEXT J 
2570 LOCATE RIVERXPOS-1,RIVERYPOS : PRINT 
wow, 
2999 RETURN 
The Randomize statement serves to ensure a 


different forest on each occasion. 


Note statement 2570 that attempts to ensure that 


victims have a 


3000 
3010 


3015 
3020 


3399 


clear escape route! 


REM PLACE HEFFA 

HEFFXPOS = RIGHTLINE-1 : HEFFYPOS = 
TOPLINE + 1 

PEN 3 

LOCATE HEFFXPOS, HEFFYPOS : PRINT 
HEFFAS; 

RETURN 
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A heffa 
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is drawn in bright red in the top 


righthand corner. 


3400 
3405 
3410 


2420 


3430 
3799 


Note that 
variables, in 


3800 
3805 
3810 
3999 
7000 


7005 
7010 


7026 


7025 
7027 
7028 


7030 


7032 
7999 


REM START MAN 

PEN 2 

LOCATE LEFTLINE + 1,TOPLINE + 1 : PRINT 
MANS; 

MANXPOS = LEFTLINE + 1 : MANYPOS = 
TOPLINE + 1 

SEARCHING = TRUE : CAUGHT = FALSE 

RETURN 


Searching and Caught are used as boolean 
a way familiar to any Pascal programmer. 


REM START HEFFA 

J = HEFFINTERVAL+ (NUMBEROFMEN-MAN) *2 
EVERY J GOSUB 7000 

RETURN 


REM SEPARATE TASK TO MOVE HEFFA 
TOWARDS MAN 

X=HEFFXPOS : Y=HEFFYPOS 

IF HEFFXPOS>MANXPOS THEN X=HEFFXPOS-1 
ELSE IF HEFFXPOS<MANXPOS THEN X= 
HEFFXPOS+1 

ji beFFYPOS>MANYPOS THEN Y=HEFFYPOS-1 
ELSE IF HEFFYPOS<MANYPOS THEN Y= 
HEFFYPOS+1 

LOCATE X,Y:CALL RDCHAR 

IF PEEK(CHREAD)=32 THEN 7030 

JF PEEK(CHREAD)=ASC(MANS$) THEN SEARCHING 
= FALSE: CAUGHT=TRUE : CAPTURED= 
CAPTURED+1 ELSE 7999 

LOCATE HEFFXPOS,HEFFYPOS:PRINT " " 
PEN 3:LOCATE X,Y:PRINT HEFFA$ 
HEFFXPOS=X: HEFFYPOS=Y 

CALL &BD19 

RETURN 


73 
' 


The movement of the heffa is a separate subtask 


which is init 
is crucial ic 
free to slow h 


4060 
4005 
4007 
4010 
4020 
4030 
4040 
4050 
4100 


iated by the 3800 subroutine. Line 3805 
the reaction speed of the heffa, so feel 
im down by unfair means. 


REM MOVE MAN 

Ik NOT SEARCHING THEN 4999 

DI 

Z$ = INKEY$ : IF 2$ = "" THEN 4800 


Z = ASC(ZS) 

IF Z2<240 OR 2>243 THEN 4010 

Z = 2-239 

ON Z GOSUB 4100,4200,4300,4400 
REM UP 
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4110 XDIR = 0 : YDIR = -l 

4120 GOTO 4800 

4200 REM DOWN 

4210 XDIR = 0 : YDIR 

4220 GOTO 4800 

4300 REM LEFT 

4310 YDIR = 0 : XDIR = -l 

4320 GOTO 4800 

4400 REM RIGHT 

4410 YDIR = 0 : XDIR = 1 

4800 X = MANXPOS+XDIR : Y=MANYPOS+YDIR 

4805 LOCATE X,Y : CALL RDCHAR : CHS=CHRS$( 
PEEK(CHREAD)) : IF CHS = RIVERS 
THEN SEARCHING = FALSE : GOTO 
4900 

4810 IF CHS = HEFFA$ THEN SEARCHING = 
FALSE : CAUGHT = TRUE : CAPTURED 
= CAPTURED + 1 : LOCATE MANXPOS, 


i 
w 


MANYPOS : PRINT " " ;: GOTO 4930 
4820 IF CHS <> " " THEN XDIR = O-XDIR : YDIR 
= 0 - YDIR : GOTO 4930 
4900 LOCATE MANXPOS,MANYPOS : PRINT " ";3: 


LOCATE X,Y : PEN 2 : PRINT MANS;: 
MANXPOS = X : MANYPOS = Y 

4930 EI 

4940 GOTO 4005 

4999 RETURN 


Subroutine 4000 is the inner loop of the main 
task. The program stays in here until the man is 
caught or escapes, but of course is repeatedly 
interrupted by the subtask which moves the heffa. 


If a key is pressed it is analysed; Only the 
arrow keys are valid so all cthers are rejected. It 
would therefore be very easy tc adapt this game to use 
a joystick. 


Lines 4100 to 4410 set the direction. Once set it 
remains until altered. You could experiment by making 
the man able to turn at 45 degrees instead of 90. It 
might improve his agility under pressure. 


Line 4800 sets the proposed position to x,y. The 
current position is maintained at manxpos,manypos. 
Then an assembler language subroutine is called which 


was loaded during the initialisation routine. This 
reads the character at the proposed location to avoid 
cellisicn. If the character is river$ or heffa$ then 
the quest is over - at least for this player. If the 


character is not a space it must be an edge or a tree, 
and the direction is reversed. 
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Note the DI and EI instructions which are vital 
unless you want occasional red men appearing in odd 
locations. (This can happen if the interrupt to move 
the heffa occurs after you have located at manxpos, 
manypos but before you have had a chance to print the 
Man in yellow; by the time you are returned, the 
location has been altered and the pen is red!) 


Subroutine 5000 clears up the mess. 


5000 REM CLEAN UP 

5005 DI 

5007 PEN 1 

5010 LOCATE RIVERXPOS,RIVERYPOS : PRINT 
RIVERS; 

5015 MANXPOS = RIGHTLINE - 1 : MANYPOS = 
TOPLINE + 1 

5017 LOCATE 1,TOPLINE-1 : PRINT "Escaped"; 
MAN-CAPTURED;". Caught"; 


CAPTURED 
5020 EI 
5030 IF CAUGHT THEN GOSUB 10000 ELSE GOSUB 
9000 
5999 RETURN 
The river is replaced, just to make sure. A new 
position is prepared for the next man, if any. Then a 
score is printed on the top line. Finally the correct 


song is chosen. 


9000 REM VICTORY SONG! 

9010 RESTORE 9800 

9020 READ T 

9030 IF T=-1 THEN 9900 

9040 SOUND 1,T,20,5 

9050 GOTO 9020 

9800 DATA 80,60,47,80,60,47,80,60,47 
9810 DATA -1 

9900 WHILE SQ(1)>127 : WEND 

9999 RETURN 


10000 REM FUNERAL MUSIC! 

10010 RESTORE 10800 

10020 READ T,L 

10030 IF T=-1 THEN 10900 

10040 SOUND 1,T,L*40,5 

10045 SOUND 1,0,5,0 

10050 GOTO 10020 

10800 DATA 478,2,478,1.5,478,.5,478,2, 
402,1.5,426,.5,426,1.5,478,.5,478, 
1.5,536,.5,478,2 

10810 DATA -1,-1 

10900 WHILE SQ(1)>127:WEND 

10999 RETURN 
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6000 REM FINAL MESSAGE 
6010 J = REMAIN(0) 
6999 RETURN 


This subroutine halts the heffalump’s activities 


by cancelling the subtask. There is no current final 
message, over to you... 
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CHAPTER 13 
GAME NUMBER 2 — GHOSTS IN A BOTTLE! 


I cannot claim any credit for the design of this 
game; it was thought up by my 10 year-old son. Where 
HE got it from I do not like to enquire. 


The source and commentary is given in this chapter 
so that you can follow the logic of the game and (who 
knows?) improve on it. The game is also available ona 
tape from Kuma Computers, together with the game of the 
preceding chapter, and the 3-part tune from chapter 9. 


Program Plot. 


The ‘plot’ is simple. A hero (you, of course) 
starts life at the top right of a sparsely-populated 
screen. The only objects to be seen are aé_ bottle 


(lower left-hand side) and a tomb (lower right). 


Suddenly a bilious-looking ghost emerges from the 
bottle with a moan, followed at intervals by several 
more. They seem set on making your acquaintance and 
direct their way unnervingly towards you in hideous 
convoy. 


Your only chance of survival is: 


7 to put the stopper on the bottle before too 
Many escape for you to deal with 


- To lead them into the tomb from the _ top, 
acting as a decoy, to escape from the bottom, 
jamming the exit with a stone as you leave, 
then to sneak round to the top to block that 
entrance also with another stone. 


If you fail you are doomed to flee through space 
for ever pursued by these ghouls. Alternatively, and 
equally unpleasantly, you lock yourself in the tomb by 
mistake, leaving the ghosts clamouring on the outside. 


Please do not write to me pointing out that self- 
respecting ghosts should not be deterred by solid 
stone. I did not invent the idea, only struggled with 
the programming... 
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Instructions for Use. 


When you have loaded the program in the _ normal 
way, use the 4 arrow keys to move round the screen and 
the COPY key to insert the block in the exit and 
entrance to the tomb. This latter key must be pressed 
when you are exactly in the exit or entrance, it is 
ineffectual if used elsewhere. 


Note that it is vital that you lead the ghosts in 
from the top, and therefore block the bottom first! 
Try it the other way round and you will see what I 
mean... 


You put the stopper on the bottle (your first task 
if you have any sense) merely by positioning yourself 
on the mouth of the bottle. No key pressing is 
necessary. 


Program Commentary 


The program uses several techniques similar to 
those in the last game, but there are 2 independant 
subtasks and a much longer assembler subroutine. This 
is there for speed. I found that having to cope with 
the movements of 10 spectres put something of a damper 
on the game in BASIC alone. The judicious use of 
assembler makes for a satisfactory response. 


The source for the assembler subroutine is 
discussed in full in chapter 16. 


Lines 7-50 deal with the set-up. GOSUBS are made 
to 1000 (initialisation), 2000 (drawing of the bottle 
and tomb), 3000 (the hero is positioned), and a 
separate task (4000) is actioned every 2500 ms which 
will launch the ghosts regularly until a maximum of 10, 
or until you manage to stopper the bottle. 


m COPYRIGHT (C? 
% ghosts i 


a 
o 
Cc 
Orm 


4000 
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The main game is played during a single call to 
subroutine 5000 in statement 60. All this does is move 
the hero, since the launching of the ghosts and their 
movement is taken care of by separate subtasks, a 
simple technique (in this version of BASIC!) that 
relieves you of timing problems. 


The final cleanup routines are in lines 70-300. 
Any further launching or movements of the spectres is 
halted and their positions are calculated to see if 
they fall inside or outside the tomb. If all are 
inside you get a thankful message of gladness, but if 
any have remained outside you see a message of doom. 
If you have been trodden on by a ghost you see a 
gloating “Gotcha!” message. 


70 X=REMAIN(O) 2 Y=REMAIN (2? 

60 IF NOT FREE THEN 200 

100 FOR J=1 TO NUMSPECTRE 

110 GX=FEEK (GXSTORE+243-2) : GY=FEER (GXSTO 
RE+2*J-1) 

120 IF GX<31 GR GXss5 OR GY<tié GR GYs20 
THEN DGGMED=TRUE 


iZ0 NEXT J 

140 IF DOOMED THEN LOCATE 15,1:PRINT "DG 
GMED TO FLEE FOR EVER! !!":GOTO 210 

150 LOCATE 20,1 : PRINT "YOU EARN HUMANT 


Ty¥°S BLESSING!" 

160 GOTO 210 

200 LOCATE 20,1 : FRIN 
9 FOR J=1 TG 4000 : 
CES 

SPEED KEY 10,10 
FEN 1 


END 


2% 
NEXT J 


The initialisation subroutine at 1000 first 
reserves memory for the assembler language subroutine, 
then later loads it in at 7000h. The loading is done 
by reading data statements and poking in preference to 
loading a binary file from tape. This is merely a 
slight added convenience. 
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As an aside, rather than type all the data 
statements by hand, a time-consuming and error-prone 
task, I used ZEN to display the contents of the area 
ccntaining the object code at the top of the screen, 
exited to BASIC, and used the COPY key to create data 
statements one by one, each containing 8 bytes. Once 
the data was “captured” in this way I edited the lines 
at my leisure to add commas and ampersands instead of 
spaces between the hex bytes. 


1000 

1065 : 
GHOST DONEFLAS 
as7Ts MXSTORE 

= & 

1010 CLS 


1015 MENGRY 
1017 SFEED KEY 6,35 
1020 bottiecoiour=1:mancciour=2: ghostcol 


Cons laud) <Qnaetke =CHR#E (225): ecg 


FORE DONEFLAG,FA 


iS9G 


Imam oa 


na 1A 


A RD RS Re 
<0 0 (NEA 


O 
is 
es 

ioe] i ae} 

ES 

| 

> oD 
: 
7 
uo 
“jee 
Ml 
¢ 
i) 
> 
re 
3 
oo 
S 
= 
3s 
& 7 
mM 
a 
to 
c) 
Ss 
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Instructions are displayed by 7000. 


miserable ghosts 
from a bottle. First you mu 


the bpottie (use the arrow ke 


put on the stopoer by tousni 


"mouth. This stops further g 


7100 PRINT “the wailing band into the TO 


7iiO PRINT “shut them in for ever! Bec 


you succeed" 
7140 PRINT “creep round to the TGF door 


and plug” 

7iSO PRINT “that one behind them. 

7160 FRINT 

7170 PRINT “You close a door by pressing 
the COCFY " 

7180 PRINT “key when exactiy in the entr 
ance." 

7190 PRINT 

7200 INPUT "Press ENTER when ready to st 
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The subroutine to draw the bottle and tomb needs 
little commentary, except to say that if you decide to 
locate the objects in a different place you will have 
to make changes elsewhere since the routine which 
checks whether the ghouls are all inside the tomb will 
have to be altered also, and the check made on whether 
the hero has stoppered the bottle will also have to be 
adjusted. 


REM draw bottie ® tomb 
LOCATE i,21 

FEN bottlecolour 

PRINT CHARS (209) 3 edge; CHK 
2050 PRINT CHRE (214); edget; CHR 
2O4G FRINT STRING (S,edget) 


20S0 PRINT STRING#(2,edge??) 

Sico LOCATE 20,15 
PRINT edge¥;edgef;" "j;edgeF;edcaget 
FOR j=i TO 5 
LOCATE 30,j+1S:PRINT edget;" "sea 


The start-man subroutine at 3000 records the 
position at mx,my and also at mxstore and mystore for 
use by the assembler language subroutine. It then 
disables interrupts so that it can draw the man on the 
screen in peace and quiet (rather superfluous as 
written since the subtasks have not yet been initiated. 
Call it a precaution against future change!) 


ZOGO 


EM start man 
=4OQ my=1 


<2 PGEE MXSTGRE+1 ,my 


PEN mancclaur:FRINT 


At 4000, a subtask which is called every 2500 ms, 
a check is made to see if the bottle is stoppered or 
whether 10 spectres have already been launched on a 
deserving world. If so the subtask obligingly cancels 
future executions of itself via a REMAIN function and 
exits with no action. 
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If there is work to do however, a ghost is 
launched. Note the simple technique to draw a _ line 
then to make it disappear by redrawing it in the 
background colour. 


4rog REM start ghost 

OS NUMSPECTRE=FEER (NUMGHOSTS 
IF stoppered OR (NUMSPECT 

SEMATNGO) : GOTO 4999 

TEN ghostcolour : FLOT 20,S2,ygiiu 

rs DRAW 40,760, ghostcolour:LOCAT 

ghnost#;:FLOT 20,82,0:DRAW 40,2 


} 
REHto) THE 


The game is played by iterating round subroutine 
5000 while the 2 subtasks act asynchronously and 
independantly. Only the 4 arrow keys and the COPY key 
are looked for; others are discarded. The subroutine 
is terminated when 2 tombstones have been put in place, 
or when the free flag is set to false (externally). 


x=mxinmy=my 


GN = GOTG 5100,5260 ,5306,5460,5500 
REM up 
TF my>i THEN amy=my-i 
GOTO S400 
RE 
TF THEN nay=mytl 
GO 
RE 
IF THEN niaax=mx—-1l 
GS 

S400 RE 

S410 IF arutd 

5420 690 
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FY EEY 


S520 


THEN DI:LOCATE Ii 
R PRINT EDGES; : Nik 


S530 


ONES=TOMSSTONES+1:1F TOMESTON 


NMX ,MiY : CALL TXTRO 
<> EP THEN E1:GOTS 
mx ymysPRINT "5 


tiyry 
OFFERED 


The subroutine at 6000 is an independant subtask 
called by the launch ghost routine in 4000. Tt 
operates at the highest priority and therefore the 
DI/EI instructions are strictly superfluous. 


Its main function is to call the assembler 
language subroutine which moves the ghosts (see chapter 
16). 


It also issues the ghostly moan, using a_ tone 
envelope issued during the initialisation routine. 


REM move ghosts 

DT 

FEN GHOSTCCOLOUR 

3 CALL MVGHOST 

IF PEEK (DONEFLAG)=1 THEN FREE = FAL 
SE : X=REMAIN(O)}: Y=REMAIN(1? 
6050 SOUND 1,350,40,4,0,1 
b990 Ba 
6999 RETURN 


Happy Spectre-bashing! 
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PART IV 


ASSEMBLY 
LANGUAGE 
ome ia 


This part contains details of programming 
the Amstrad in Assembly Language, 
showing how routines can be written to 
interface with BASIC programs and 
Enhance them. 
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CHAPTER 14 
THE ZEN ENVIRONMENT 


Useful as BASIC is, there comes a time when we 
want something extra, and turn to Assembler. There are 
several possible reasons for this: 


- a need for extra speed. Assembler programs 
can operate many times faster than BASIC. 


= a need to conserve memory. Assembler 
programs are several times more concise’ than 
BASIC equivalents. 


- A need to access system facilities which are 
not available in BASIC. All machine features 
are available to the Assembler programmer, it 
is only knowledge which holds him back! 


Of course the Amstrad, as supplied, is a_ BASIC 
machine in the sense that BASIC is supplied in ROM, and 
the machine is set to power up into BASIC on switch-on. 
But it does not have to stay there! 


ZEN. 


Kuma Computers supply an Assembler called simply 
ZEN for the Amstrad which enables the the user: 


= to write complete Assembler programs that can 
be saved on tape and reloaded as desired, to 
run independantly of BASIC 


- to write programs that are designed to be 
called as subroutines from BASIC, and will 
therefore live alongside BASIC programs. 


In addition ZEN contains a disassembler, so that 
it can be used to fathom the mysteries of the Amstrad 
operating system, if desired. 


Versions of ZEN have been supplied for other 
systems, for example Sharp, Newbrain and Epson, so 
that the product is a well-proven one and can _ be 
recommended to any Amstrad owner who is familiar with 
Assembler, or who wishes to learn. The handbook 
supplied contains a full listing of the ZEN source 
code, so that the expert can make changes to _ the 
product to suit himself, and the learner can study a 
large well-written piece of 280 Assembler code. 
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Loading ZEN. 


ZEN is supplied on tape. It resides at 4000h 
which is slap in the middle of what is normally BASIC’s 
area, So a MEMORY statement must first be entered to 
lower the top of BASIC’s partition to 3FFFh or 16383. 
ZEN can then loaded by a simple LOAD "" command, after 
which it can be entered by: 


CALI. 16384 
and displays its sign-on prompt 
ZEN> 


The loading process, at the slower speed, takes 
about 1 minute. 


Memory Layout. 


At this point the user will normally wish to enter 
source ccde, either typed in or loaded from tape, to be 
modified or extended and assembled. The default 
location for the source code is 6000h, but this can 
easily be altered. 


ZEN is an in-memory assembler, so if it is 


desired, as it normally is, te run the pregram 
produced, space must be allocated for the object code 
to be stored once ZEN assembles the source. This would 
normally be above the source code, at - say - 8000h 
upwards. 


A work area is needed by ZEN to put the symbol 
table containing all the variable names in the source; 
the space for this starts immediately after ZEN itself, 
at 593Ch and extends to the beginning of the source 
code at 6000h. If this proves insufficient the start 
of source code can be moved. 


The only other area of memory that needs to be 
mentioned is the 4k needed for reading and writing to 
cassette. When you issue the instruction to load ZEN, 
BASIC perferms its normal trick of lowering HIMEM by 
4096 bytes, in this case to 2FFFh. So ZEN expects them 
to be at the same place, a read buffer at 3000h and a 
write buffer at 3800h. If you decide to put them 
elsewhere, ZEN will be just as happy provided it is 
kept informed by your modifying 2 pointers. 
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The pointer allocation is under user control, so 
it is perfectly possible to have more than one’ source 
program in memory, each terminated by an END statement, 
and to assemble one or the other alternately. 


To summarise, the nornal memory map while ZEN is 
leaded is as follows. Compare this with the map shown 
in chapter 1. 


Amstrad Memory Map with ZEN Loaded. 


Screen 
Memory 


inca 


Cooo}. pea 
aco] _ SystemUse 
Object Code 
8000 coe 
Source Code 
6000: Fae rnee 
593C Symbol Table 
4000 ___ ZEN - 
3000 Cassette Buffers _ Operating 
oo4o [BASIC Programs | >) “gyetem 


System Use 


It must be stressed that this is only the 
suggested layout, for normal use. Larger BASIC 
programs can be accomodated by moving the cassette 
buffers above the ZEN area, and the boundaries of the 
Assembler Source and Object Areas are entirely at the 
users discretion. 


In fact the size of the memory allocated for BASIC 
is not usually a problem. There are many other systems 
on the market who would be glad to have as_ much! Lf 
you do find that your BASIC program is too large to co- 
exist with ZEN, remember that once you have tested your 
assembler subroutine using a skeleton BASIC. program, 
the object program can be loaded without either ZEN or 
the source code being present and will be called 
directly from your BASIC program, so HIMEM will very 
probably be at 7FFFh or higher. 
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ZEN Facilities. 


Having loaded ZEN into memory as shown above, what 
commands’ are available? All are a single letter and 
some have a parameter. 


A Assemble O Out 

B Bye (return to BASIC) P Print 

Cc Copy Q Query 

D Down R Read 

E Enter Ss sort 

F Fill T Target 

G Goto U Up 

H Howbig Ww Write 

I In xX Xamine 

K Kill Z Zap 

L Lecate c Catalogue 
M Modify d Dissassemble 
N New u Unscramble 


You can see that ZEN provides the basics of a 
complete development environment . All assembling is 
done direct to memory, so the object code, if 
requested, is available at once. 


Source programs are entered using the E command, 
assembled via the A command, and may be deleted with 
the Kill (K) command. They can be executed, when the 
assembly is ‘clean’ with a Goto command (G). A 
breakpoint can be set so that execution can proceed in 
stages with registers and storage being displayed at 
each halt. 


ZEN does not provide a full screen editor for 
entering source, but commands are provided to display 
a line or lines (P), locate a specific character string 
(L), goto a specific line (T), move up or down a 
relative amount (U, D), or delete one or more lines 


(2). 


Data can be created by Fill (F), Copy (C) or 
Modify (M) and examined by Query (Q) or xX (which 
displays the registers). 


You can save source or object files by the W 
command, and read them back in via the R command. The 
tape can be scanned by the catalogue (c) command. 


The disassembler is invoked with the d command, 


and there is also a useful ‘unscrambler’ which 
disassembles 8 commands at a time. 
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Output from the Assemble command (A), the Sort and 
display symbol table (S) or the disassembler (d) can be 
sent either to the screen or to an external device, ie. 
a printer. 


The user can use the B command to move from ZEN to 
BASIC, and CALL 16384 to move back again. Programs in 
either area will be just as you left them. 


ZEN Summary. 


ZEN is a useful product, providing a comprehensive 
and well documented environment for the Assembler 


programmer. A knowledge of Assembler language is an 
enormous asset, and opens a large number of doors, so I 
do urge those who are hesitating to plunge in. The 


water’s lovely! 
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CHAPTER 15 
INTERFACING TO BASIC 


Most users, approaching Assembler for the first 
time will be doing so in order to write subroutines 
performed from BASIC, rather than writing stand-alone 
Assembler programs. In most cases parameters will need 
to be passed from one language to the other. This 
chapter covers the techniques needed to move happily 
from BASIC to Assembler and back again. 


The examples shown apply particularly to the ZEN 
Assembler environment, but the differences, if another 
Assembler is used, should be minimal, since what we are 
studying are the conventions used by Amstrad BASIC. 


The Subroutine Development Sequence. 


BASIC programmers are used to finding and fixing 
faults in their programs; few of us write a 
significant program without bugs creeping in. When we 
run the program and a fault such as an endless’ loop 
occurs we break in, stop the program, fix the problem 
and restart. If a divide by zero error occurs, we 
insert an extra test to make sure the condition cannot 
reoccur. 


In Assembler a program fault can wipe out an 
entire evening’s work in microseconds! 


It is for this reason that users are urged to save 
copies of their source programs frequently. The object 
code can be replaced in seconds if the source is 
intact. To replace the source may take hours. 


The following is a suggested sequence for 
developing Assembler subroutines under ZEN. Following 
it will save you growing old before your time... 


1. Type a MEMORY 16383 command and load the ZEN 
Assembler above BASIC. 


2% Enter ZEN and type in the source of the program. 

3. Create a subsidiary program, which will eventually 
be thrown away, alongside the main one, to set up 
the registers and data as they will appear when 
the subroutine is called from BASIC. 


4. Assemble and get rid of assembly-time errors such 
as spelling mistakes, undeclared symbols, etc. 
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Save the source code (twice) to tape. LABEL THE 
TAPE! 


Start the subsidiary program and stop it with a 
breakpoint at the start of. the main subroutine, 
verifying it sets up the environment as expected. 


Restart the subsidiary program, moving the 
breakpoint further into the program. Verify the 
registers and data areas are being correctly 
manipulated. 


If (or when!) faults occur, note the corrections 
by whatever means is suitable, whether it be a 
pencil note on the back of an envelope, or a new 
assembly directed to the printer and marked with 
the date and time. 


Change the version number (which should be in a 
comment statement at the start of the program) and 
resave to tape whenever you have changed more than 
a few statements. Do NOT save on top of the last 
source copy saved, use another tape so that you 
circulate at least 2. Include the time in the 
title being saved, ie. 
SAVE "ABCIII 4.30 23/8",B,... 


When the program appears to work completely 
correctly, exit to BASIC with the BYE command, 
write a BASIC program to call the subroutine and 
repeat the test using all combinations of data. 


Return to ZEN and delete the subsidiary program 
which sets up data. Then reassemble. 


Save the object code (for the first time) onto 
tape. 


Reset the system completely. (Jumping to location 
0 will do this very well!) 


Type in the BASIC program to set memory and load 
the assembler object module. Then call the module 
to verify correct operation. 


If the above sounds to you harder work than 


programming BASIC, you're right! But the rewards are 
significant too, as you will find when your first 
program (eventually) works as expected... 
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Passing Information the Simple Way. 


Let us consider a simple subroutine as an example. 
The Amstrad Operating System is full of useful routines 
that we can call directly from BASIC or use from 
Assembler subroutines. A list of the most useful is 
given in the next chapter, anda full list is found in 
the Amstrad Technical Manual. 


If we are projecting a missile such as a ball 
around a screen we may well wish to know if we are 
about to bump into anything. 


This appears to ke a problem! In BASIC there is 
no command that tells us what character is at a 
specific screen location; we could use TEST or TESTR 


to test for the presence of a specific colour, but that 
is not sufficient for many purposes. We could PEEK the 
screen display, but the layout is very complex, and 
would need considerable deciphering. However there is 
an operating system routine called TXT RD CHAR which is 
just what we want. 


To use this routine we must position ourselves 
at the square in questicn using the LOCATE command, 
then call the routine which will return the character 
value in register A - 32 for a space, 65 for a capital 
‘A’, 250 for a man-shaped figure, etc. If there is no 
valid character at the location (which can happen if 
one character is overwriting another for example) the 
Carry flag is cleared and zero is returned in A. 


So we need a short assembler subroutine which we 
can call from BASIC that will call the TXT RD CHAR 
reutine and then place the contents of register A ina 
place where BASIC can find it. 


This passing of information can be handled in two 
ways: 


- ky passing the name of a BASIC variable into 
which the character is inserted, 


- by writing the assembler subroutine so. that 
it inserts the character in a fixed place in 
memory such that BASIC can look at it via a 
PEEK instruction. 


This second method is not very elegant but is 
remarkably easy, and is the method we show first. 


Normally HIMEM is set to AB7Fh (or 43903 if you 
prefer). Our routine is likely to be short so we will 
plan to run it at AB60h and we will make it store the 
character at AB7Fh. 
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The TXT RD CHAR routine is situated at BBé0h. It 
does not require any input parameters, but exits in 
one of 2 states: 


+ Carry set and a character in A. 
= Carry clear and A set to zero (error). 


For the purposes of our example we will ignore the 
error case and assume that a correct character is 
always returned. The routine as entered into ZEN is: 


CRG OAB60H ;Starting position. 
LOAD $ ;Generate object code. 
CALL OBB60H ;Call TXT RD CHAR 

LD (OAB7FH),A ;Store result 

RET ;Return to BASIC 

END 


Assembling it produces a measly total of 7 bytes 
(I said Assembler was concise!) at OAB60H. 


If we follow our own advice, given earlier, we 
should create an Assembler test harness to test our 
routine, but every rule is meant to be broken on 
occasion, and we will test this from BASIC, as it is 
easier to move areund the screen using LOCATE. 


Return to BASIC and enter the following program: 


10 CALL &AB60 
20 PRINT PEEK (&AB7F ) 


Clear the screen and run. You should see 32 
printed out which is the value of a space. Since RUN, 
followed by ENTER, was typed on line 2, the system was 
located at column 1 of row 3, which was a space. 


All well so far! Now, without clearing the 
gcreen, enter: 


5 LOCATE 2,3 


and RUN again. This time you should see the value 
51 printed out since the character at column 2 of row 3 
where we positioned ourselves was a “3° and as you can 
see from the character chart in Appendix III of the 
Amstrad handbook, the character 3 is ASCII 5l. 


Please feel free to devise other tests, all of 
which should prove that as long as you locate at a 
correct position the subroutine works as we would like. 
Success! 
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Using Parameters. 


Now we have our first Assembler routine, we will 
get ambitious, and return the result in a_ variable 
rather than in a fixed location. What we want to do is 
to test for a space by writing: 


CALL &AB60,A$ 
IF AS <> " " THEN... 


But this will not work, no matter how we alter our 
Assembler subroutine! The reason is that Amstrad BASIC 
parameters are always passed by value. That means 
that, in the above example, BASIC will create a copy of 
A$ in storage somewhere and pass it to the subroutine. 
Because it is a copy, you can alter it until you are 
blue in the face, it makes no difference to the 
original contents of A$ which are left snugly 
undisturbed. 


Happily there is a simple solution. Amstrad BASIC 
supplies a little-documented operator called “@* which 
says “instead of passing the value of the variable as a 
copy, pass the address of the variable instead.” So we 
can use the address to access the original variable and 
change it. Our BASIC program must set up a constant 
with a length of 1 (since the Assembler cannot alter 
the length of a BASIC variable) before calling the 
routine. The test program will be: 


10 AS = "g" 
20 CALL &AB60,@AS 
30 PRINT A$ 


and we will expect to see AS changed from °Z” to 
some other value. 
Parameter Types. 

Before we can show the changes to the Assembler 
routine we need to differentiate between different 
types of parameter, and to show how they are stored by 


BASIC. 


There are 3 types of variable: string, integer and 
real. 
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Character strings, as you well know, are usually 
represented by names which end with “$° (though not 
always - see the DEFSTR command). They may be up to 
255 bytes long. A string variable is in fact stored in 
2 parts, the String Descriptor and the String Body. 
The descriptor contains the length (as 1 byte, hence 
the maximum of 255) followed by the address of the 
body. The body contains the variable data. 


Integers have a range of -32768 to +32767. This 
will tell you, if you know Z80 Assembler language, that 
they are stored as 2 bytes, and you would be right. 


Reals are used to hold a larger range than 
integers can manage and to hold fractions. They have a 
fairly complex internal representation using a mantissa 
and an exponent. 


String Parameters. 


Knowing the above, we would expect A$ in this 
example to be stored (after line 10) as: 


Descriptor - DB 1 ;length 
= DW body ;address of body. 


Body - DB Zz 

Whether the parameter is a value or an address it 
is pointed to by register IX on entry to the 
subroutine. So our Assembler routine might be changed 
to: 


ORG OAB60H 


LOAD $ 

CALL OBB60H 7;CALL TXT RD CHAR 

LD L, (IX+0) 7ADDRESS OF A$ DESCRIPTOR 
LD H, (IX+1) 

INC HL 7 IGNORE LENGTH 

LD E, (HL) 7PICK UP ADDRESS OF BODY 

INC HL 

LD D, (HL) 7 INTO DE 

LD (DE),A ;STORE VALUE OF A IN BODY 
RET 


and the BASIC routine would be changed as above to 
include the @ operator. 


You should be able to position yourself in various 


parts of the screen to test that the routine works 
satisfactorily. 
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Integer Parameters. 


The format of an integer parameter is simpler. 
The value is held as a 16-bit signed binary number in 
the range -32768 to 32767, (using two’s-complement 
notation in the case of negative values). Again, if we 
want to alter the value of the variable passed during 
the subroutine we need to pass its address using the @ 
operator. If we merely want to read the value without 
altering it we need not bother with the @. So our 
routine could use an integer instead of a string 
variakle: 


10 Z%=0 
20 CALL &AB60,@Z% 
30 PRINT 2% 


and the Assembler routine would be altered to: 


ORG OAB60H 
LOAD $ 

CALI, OBB60H 
LD 1, (IX+0) 
LD H, (1X+1) 
LD (HL) ,A 
RET 


Test as before. 


Real Numbers as Parameters. 


Having conguered strings and integers we are left 
with reals. Unfortunately their format is complex! A 
4-byte exponent is-followed by a l~-byte mantissa which 
is “biased by 128°. This format is explained in more 
detail in the Amstrad Concise BASIC Specific 
Specification (SOFT 157) which covers the Amstrad BASIC 
in greater detail than the standard handbook. If you 
want to study the format of various real numbers I 
suggest you write a routine that moves the 5 bytes into 
specific areas of memory, then prints out their value 
on return to BASIC. The following will suffice: 


10 Z = 32 

20 CALL &AB60,@2 

3C FCR J = &AB7B TO &AB7F 
40 PRINT HEXS(PEBK(J));" "; 
50 NEXT J 

60 PRINT 


together with an assembler subroutine of: 
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ORG OAB60H 
LOAD $ 

CALL OBB60H 

LD L, (1X+0) 
LD H, (IX+1) 
LD DE, 0AB7BH 
LD BC,5 


and as line 10 is altered, this will produce 
results like: 


00000 z= 0 
000081 Z2=1 
0000 82 2=2 
000 80 81 2 = -l, etc. 


In the above example we were passing the address 
of the real number, not the valve itself, using the @ 
operator. It should be noted that if you attempt to 
pass the value itself, BASIC converts the real number 
to unsigned integer format, and therefore you are 
passed a 2-byte number and not the complicated 5-byte 
one just shown. Of course the conversion from real to 
integer will usually cause loss of data, since 
fractions are rounded to the nearest whole number. 


Unless you are writing your own Assembler maths 
routines to handle these complex numbers, I think it is 
unlikely that you will wish to do much parameter 
passing of reals! 


More than One Parameter. 


So far we have talked only of passing one 
parameter. But we can pass several, and they can be a 
mixture of value parameters or address parameters, as 
you wish. Whichever type you choose the parameter will 
always be a 2-byte number. 


When you enter the subroutine, BASIC has set 
register A to contain the number of parameters, from 0 


upwards. As discussed already, register IX is set up 
to point to the parameters themselves, but note that it 
points to the last one, not the first. To illustrate 


this, consider the fragment: 


5 AS=5 : ABCS="HELLO" : Z = 3.5 
10 CALL &8000,@A%,@ABC$,2Z,-1 
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There are 4 parameters, 2 addresses and 2 values. 
So A will be 4 on entry and register IX will be set up 
as follows: 


Register IX --> BW -1 
DW value of @ 
DW address of ABCS descripvor 
DW address of A% 


which is the opposite way round to what you might 
at first expect. 


When I tested the above, I recorded the following 
values; if you try the same you may get small 
differences if your version of BASIC or ZEN differs 
fron mine, or if you type with extra spaces, but the 
results ought to be the sane. 


Register IX contained BFF6h. At BFF6h I found: 
BFF6: FF FF 
BFF8: 04 00 CA 01 C2 01... 


and you can see that the parameters are all stored 
as 2 byte numbers, with IX indeed pointing to -l 
(FFFFh), followed by 4 (Z converted to the nearest 
integer), followed by 2 addresses 01CAh and 01C2h. At 
QO1CAh we find the string descriptor containing a length 
O5h, followed by an address, 0185h, which points 
correctly to the string body of ABCS: 


0185 48 45 4C 4C 4F HELLO 


Finally at 01C2h we find 05 00 which is the value 
of Ag. 


In this example we could alter the values of A% 
and ABCS, but not those of Z or (obviously) of -1l. 


All unravelled, I hope? 
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CHAPTER 16 
OPERATING SYSTEM ROUTINES 


Now that you can interface assembler routines to 
BASIC you may be anxious to try out a few ideas. 


Jump Blocks. 


The Amstrad Operating System has been designed to 
be accessible to users. It contains a large number of 
routines which it needs primarily for its own purposes, 
but which are documented and available for user 
programs as well. 


One problem always faced by developers is that 
routines may alter position in different releases of 
the operating system, due to corrections or 
improvements being made. If the user writes his 
program assuming the TXT RD CHAR routine is at BB60h 
and finds it is at BB68h in some later version of the 
Amstrad he will not be pleased, nor will other users of 
his program. 


In the Amstrad this is solved by ‘Jump. Blocks’. 
As the name implies jump blocks are merely sequences of 
JUMP instructions to various operating system routines. 
These blocks are contained in the ROMs and moved to RAM 
at system initialisation. They are always mceved to the 
same place, so that the user can rely on their always 
being a JP TXT.RD.CHAR instruction at location BB60h, 
while the developer is free to move TXT RD CHAR 
anywhere he likes, as long as he alters the Jump Block 
in step. Simple! 


The moral is: rely on the jump blocks, and do not 
try to bypass them. Remember that in 2 years” time, an 
Amstrad expanded with disk and extra ROMs may lock very 
different internally, but the existing jump blocks are 
likely to be maintained. 


There are 4 jump blocks in all. The Amstrad 
Technical Manual gives full details of them and pays 
particular attention to the entry and exit conditions 
of each routine. If you plan to program extensively in 
Assembler, the Technical Manual is essential reading. 
Here we do not attempt to replace it, only to give an 
outline of the more important routines. 
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Advanced users should note that they can alter a 
jump instruction in a jumpblock to point to their own 
routine in RAM rather than the system-provided routine 
in ROM. Provided that the new routine observes’ the 
documented entry and exit conditions, other programs 
using the routine should continue to work as expected. 
But you have to know what you are doing... 


The Main Jump Block. 


The main jump block, the one users will normally 
wish to access, is situated at BBOOQh - BD37h. It 
contains 190 3-byte instructions, but most of them are 
not actually jumps! You will remember that the 
Amstrad ROMs overlay the RAM at top and bottom of 
memory. Many of the entries in the main jump_ block 
actually consist of an RST 8 instruction followed by 
the address of a routine, with flags set in the high- 


order bits. This causes the required jump. to low 
memory, but also sets the ROMs as enabled or disabled 
according to the flags. It is in effect an extra 280 


instruction “Jump and set ROM state’. 


Some of the most useful entries in this jump block 
are: 


BBOO Keyboard Manager Initialise. This is used to 
restore the state of the keyboard as it would 
be after a system reset. Any expansions are 
reset to their defaults, the buffer is 
cleared, repeat speeds are returned to their 
default etc. 


BBO6 Keyboard Wait Char. Wait for the next character 
from the keyboard. This is normally the next 
character typed, but may be, for example, the 
next character of an expansion string, or a 
character from a key translation table. A 
contains the character. 


BBO9 Keyboard Read Char. Unlike the above routine, 
this one returns immediately, whether there 
is a character ready or not. If a character 
is found it is returned in A with carry on. 
If not carry is clear. 


BB24 Get Joystick. Investigate the status of the 
joysticks. A byte of information is returned 
for each joystick (whether or not one is 
actually attached). Register H shows 
joystick 0 and register L joystick 1. The 
bits are: 
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BB4E 


BBSA 


BB5D 


BB60 


BB63 


BB6C 


BB6F 


BB72 


BB75 


BB90 


BB96 


Txt 


Txt 


Txt 


Txt 


Txt 


Txt 


Txt 


Txt 


Txt 


Txt 


Txt 
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- up. 

= down. 
left. 

- right. 
- fire 2. 
- fire l. 


UU e®WNH O 
{ 


Initialise. A full initialisation of the text 
VDU takes place, as for system reset. This 
means that all streams are set to their 
default values, the cursor is moved to the 
top left and the screen is cleared. 


Output. Output a character to the currently 
selected stream. The character, contained in 
A, may be a control character, in which case 
it will not be printed. 


Wr Char. Write a character to the currently 
selected stream. Unlike the Txt Output 
routine, control characters are printed just 
like any other character. 


Rd Char. Read a character from the’ screen. 
If you have used the examples in this book, 
you are well used to this routine by now! If 
there is a valid character at the currently 
select position it is returned in register A, 
with Carry set. If not, carry is cleared. 


Set Graphic. This routine is used both to 
enable and to disable graphic character 
writing. A is non-zero to enable and zero to 
disable. This equates to using TAG and 
TAGOFF in BASIC. 


Clear Window. Clear the current window. It 
is reset to the paper ink of the currently 
selected stream. 


Set Column. A contains the column on entry. 
This sets the cursor horizontal position. 


Set Row. A contains the row. 


Set Cursor. H contains the required column 
and L the required row. So this performs a 
function equivalent to the above two. 

Set Pen. A contains the ink to be used. The 
system masks the value to ensure it is 
brought within the required range. 

Set Paper. A contains the ink for setting the 


paper. 
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BBOF Txt Set Background. If A is zero, transparency is 
disabled. If non-zero it is enabled. This 
affects the way text characters are written 
to the screen; if transparency is enabled, 
the background is not cleared first, so the 
character is written on top of whatever is 
there already. Mainly intended for labelling 
charts, etc. Note: In graphics mode, the 
background is ALWAYS cleared first, 
regardless of the transparency setting. 


BBB4 Txt Stream Select. A contains the stream number 0 
- 7 to be selected for future writing. 


BBBA Gra Initialise. The Graphics VDU_ stream is 
initialised as for system reset. 


BBCO Gra Move Absolute. DE contains the required X 
address (horizontal position) and HL the 
required Y address. These positions can be 
outside the window if required. 


BBDB Gra Clear Window. The graphics window is cleared 
to the current graphics paper ink. 


BBDE Gra Set Pen. The Graphics plotting ink is set to 
the ink contained in register A. 


BBE4 Gra Set Paper. The background ink is set to the 
colour contained in A. 


BBEA Gra Plot Absolute. A point is plotted at the xX 
coordinate (contained in DE) and _ the Y 
coordinate (contained in HL). 


BBF6 Gra Line Absolute. A line is drawn to the X,Y 
coordinates supplied in DE, HL. 


BBFC Gra Wr Char. A Character, contained in A, is 
written to the screen at the current graphics 
position. 


BC14 Scr Clear. The screen is cleared to ink 0. 


There are of course many more, and there are many 
more details that could be written on the above 
routines. For a much fuller explanation see the 
Technical Manual. The above is intended to give you a 
flavour of what is available. 
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A Subroutine Example. 


The following subroutine is taken from the Ghosts 
in a Bottle Program in chapter 13. It illustrates 3 of 
the above routines being called, and shows a possible 
way of interfacing to BASIC programs. 


The routine actually contains 2 subroutines. The 
first, at 7000h reads the character situated at the 
current location, stores the character in SAVECHAR 
(7007h) and returns to BASIC. BASIC can retrieve the 
character by PEEKing 7007h. 


The second routine, much longer, takes care of 
moving the ghosts round the screen. The function 
required is to look at each ghost in turn, and to move 
it closer to where the man is situated (indicated by 
the MX,MY coordinates which have been POKEd by BASIC). 


Each ghost’s coordinates are adjusted up or down 
according to whether the man is above or below and to 
left or right. This gives a new set of coordinates 
which are saved on the stack at instruction G4. The 
cursor is positioned at the new position and _ the 
character already there is checked. If it is the man, 
the search is over and the DONEFLAG is set on as _ an 
indicator to BASIC. If it is not a space no action is 
taken, but if it is clear to write, a space is written 
onto the ghost’s current location and the ghost is 
rewritten at the new location. Then the new 
coordinates are stored for the next iteration. 
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3 
44 
45 


7000 CDb08B 
7003 320770 
7006 C9 
7007 00 


7008 AF 
7009 32FE70 
700C SAFF70 
TOOF 32FD70 
7012 2A0071 
7015 £5 
7016 C1 
7017 210271 
TOIA C5 
7018 56 
TOC 23 


7025 3803 
7027 14 
7028 180! 
702A 15 
7028 78 
702C BB 
702D 2804 
702F 3803 
7031 1C 
7032 1801 
7034 1D 
7035 £8 
7036 &5 
7037 CD7588 
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MAN; 
GHOST: 
SPACE: 


TXTSETCUR: 
TXTWRCHAR: 
TXTROCHAR: 


RD: 


SAVECHAR: 
MVGHOSTS: 


60: 


Gls 
62: 


G3; 


CALL TXTROCHAR 

LD (SAVECHAR) ,A 
0 

EQU $ 
i] 

LD (DONEFLAS) A ;show not done 

LD A, (NUMGHCSTS) 

LO (TEMPGHOSTS) A 

LD KL, (MX) ;Get Man's coords in HL 


POP BC jChange to eC 


LD oD, (HL) 3D= GY 
LOE, (HL) yee SY 
PUSH HL ; Ptr to next coords. 


PUSH DE ;Current Ghost coords, 
Ld a,c 3 MX 


INC E 6Ye1 
bec € pees 


PUSH HL ;Save NGX,NGY 
CALL TXTSETCUR 
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46 703A CO6ORE 
47 7030 DI 

48 703E El 

49 703F D5 

50 7040 FEFS 
Si 7042 2008 
52 

JEOL 
54 7046 32FE70 
55 7049 32FR79 
$204 


58 704E FE20 
ees 


% 
S50 2610 


61 7052 CD7588 
62 7055 3€20 
63 7057 CO5088 
64 705A EL 

65 7058 €5 

66 705C CO7SER 
67 705F IEE! 
68 7061 CDSDEE 


90 TOFD 00 
31 70FE 00 
$2 TOFF 09 


CALL 
PoP 
POP 
PUSH 
CF 
dR 
EGU 
td 
im) 
a 
oR 
EGU 
cP 


DONE: 


NOTDCNE: 


DOWEFLAS: 


GR 
LO 
TEMPGHOSTS; OB 
oe 
NUMGHOSTS; DE 


EXPL 


TXTRDCHAR 


MAK 
$ 


(DONEFLAG) A 
(TEMPSHOSTS) A 
WRITE 


TXTSETCUR 
A, SPACE 
TXTHRCHAR 
HL 

HL 
TATSETCUR 
A, GHOST 
TXTWRCHAR 
ne 

HL 


t 
&, (TEMPGHGSTS) 
A 
(TEMPGHOSTS) ,A 
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ORED 


;Save ptr to coords 


sBack to BASIC. 


AM 


6900 
0900 
0000 
6000 
0000 
6000 
0000 
0000 
0600 


2 0000 


6090 
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B10: 


bk OO 
DW 0 
DW OO 
dk 0 
DH OO 
tk 0 
th OO 
dd 0 
fk 0 
ok OO 
te 8 
ENE 
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PART V 


SERIOUS 
APPLICATIONS 


This part contains an overview of 
what needs to be considered when 
programming business-like applications 
for the Amstrad. Considerations of screen 
design, option selection and user input 
are discussed, and the section includes a 
complete Home Accounting Program. 
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CHAPTER 17 
The Design of a Home Accounting Program 


The programs we have written so far have been 
fairly light-hearted ventures, written for our own 
amusement. It is time to take a look at a program with 
a more serious intent, a program to sort out our home 
accounts. 


The Amstrad should not be thought of purely as a 
games systems. The BASIC is fast enough for serious 
applications, and has several powerful facilities which 
enable us to manipulate character strings, format 
printing in columns, and so on. 


Of course, not having disk drives (yet!) imposes 
some limitations; we shall not want to be reading from 
or writing to tape very often, it would be too slow. 
But, to compensate, there is a more than ample amount 
of RAM available, so we shall read all we need into 
memory at the start, manipulate it there, and write it 
back only when we have finished. 


What Functions? 


What do we want a home accounting program to do? 
Tell us ‘where we stand’ at any time (if we are brave 
enough!), help check our bank statements, analyse where 
the money has gone so that we may be able to plan 
better tomorrow, keep things in balance so that if we 
have one account in the black while another - say a 
credit cart account - is in the red, we can. transfer 
funds and so avoid interest payments. 


That will do for a_ start. So much for the 
functions. How about the design? 


Design Guidelines. 


We want it to be easy to use, and fast to display 
information. We are not good typists, so we want the 
minimum number of keystrokes, which implies the program 
should be able to guess at default values on occasion. 
We want a certain amount of checking to avoid errors 
where we are keying a date into an amount field, but we 
are not looking for the sort of rigorous checking we 
would insert in a commercial program. We do not need 
to protect ourselves against fraud, after all! 
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How about the display? Should it be 40 or 80 
columns? There seems no reason why we should not use 
both at different times. Should we use colour, or is 
that just a gimmick in this type of program? 


Of course my decisions in the above matters may 
not be the same as yours, which is why I have included 
the source code, so that things can be changed if you 
wish. 


Menu Selection. 


One of the early design questions we face is how 
the user will select a routine. We can already see 
there are going to be many routines such as “Display 
current balances’, ‘List all payments this month’, 
“Show me what I have spent on the car since September’. 
We want a way of selecting with the minimum of fuss and 
keystrokes. 


There are several options. The simplest, and one 
you will see frequently in commercial programs, is the 
numbered menu: 


1. Show Current Balances. 

2. List all Payments. 

3. Analyse Payments by category. 
4. eee 


Select number and press ENTER. 


This is simple to set up, and it works quite well 


when there are a maximum of (say) 20 options. Beyond 
that the screen gets very cluttered, and you have to 
descend into submenus. Once you are forced to. take 


that step the numbers become difficult to remember and 
you tend to make mistakes. 


An alternative is the menu where you select by 
entering the first letter or letters of the option: 


List Balances 
List Payments 
Analyse Payments 


Enter starting letters to select option: [  ] 


and the user can type LB, LP or AP. 
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This is much easier for the user to remember 
providing the options are well phrased, and providing 
there are not some that clash. It becomes more 
difficult to choose suitable option names after 20 or 
so, and the scheme loses some of its attractiveness. 


A third scheme, much in vogue at the present, is 
to ‘point to” an option by means of an arrow, or a 
cursor, and to select it by means of the ENTER key. 
Once you have chosen, a list of further choices may 
appear, and selection is made in the same way. 


Several schemes of this sort exist, centred round 
the use of a mouse, although the computer software 
industry as a whole seems to be taking a ‘wait and see’ 
attitude towards their use. Is it just a gimmick? 


It must be admitted that a mouse is useful for 
menu selection. The act of pointing is a natural one, 
and it does not matter at all if the option you want is 
next door or in the other corner of the _- screen, 
distance is no object. 


Well, the Amstrad has no mouse (as yet!) but there 
is no reason why we cannot use the ‘point-and-select ’ 
technique for our home accounting menu. There is no 
definitive answer as to which technique is the best, 
but I have made the undemocratic choice for you in this 
case. 


Screen Design. 


A book could be written on the principles of 
interfacing with the screen (and probably has!). 
Suffice it to say that we will divide our screen into 3 
logical areas - heading, body and prompt. The heading 
will take up the top 7 lines, the body (where most of 
the detail will appear) lines 8 to 23, and there will 
be a single line for prompts and error messages on line 
25. A consistent screen design is reassuring to the 
user. 


Coming back to the question of 40 vs 80 columns, I 
decided to use 40 wherever possible, for clarity, but 
to change to 80 when forced to by the nature of the 
data being displayed. Most of the data entry can be 
done on a 40 column display. 


I also decided to select black as the background 
colour and white as the pen. colour. This is 
recommended for maximum clarity in mode 2 on the colour 
display, and so I have adopted it throughout. Light 
blue is used to show the user where his input is 
expected (not on the 80-column display of course). 
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Handling Input. 


So much for the look of the screen, how about the 
inputting side? It may seem obvious that the best 
statement is the INPUT or LINE INPUT statement, but 
that is actually not true at all, and it is a statement 
best avoided. If you program 


INPUT "Enter Amount ",z 
and the user mistakenly types 
current account 


BASIC snaps back with a “REDO from START” message 
which untidies your attractive screen display as it is 
most unlikely to come out on line 25 where all other 
error-messages occur. 


Further disadvantages to the use of INPUT are: 


= you, the programmer, can do nothing while the 
data is being entered; you do not receive 
control until the user presses ENTER. If he 
has entered alpha data into what is meant to 
be a numeric field, you do not know until he 
has finished. 


- If he continues without pressing ENTER he 
could type 256 characters before BASIC gets 
tired, and your screen display will be 
destroyed. 


You may wonder what sort of idiotic user I have in 
mind. But I believe that in writing this sort of 
program you should assume the worst. You cannot 
prevent against deliberate sabotage, but you can and 
should protect your program against misuse by 
technically naive’ users. 


So the first task is to write an input subroutine 
centred round the use of INKEY$. This means: 


= we can set a maximum length for each field 
entered, and not let the user go past it. 


‘= we can choose the type of data to be entered, 
and verify it (to a point) as each keystroke 
is made, refusing to allow graphic symbols in 
names, alpha strings in numbers, etc. 


7 we can indicate visually the boundaries of 
the field to be entered. 
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- we can use the same routine for cases where 
we do not want to wait for the ENTER key to 
be pressed - for example when we are moving 
an arrow round the screen during menu 
selection. 


In the home accounting program this subroutine is 
at 8000-8999 and I hope you will find it useful in 
other programs. Note that it is not a definitive 
solution, you could decide to make the error checking 
more stringent, but it should give you ideas’ for 
improvement. There is an explanation of the coding 
used in this subroutine in chapter 19. 
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CHAPTER 18 
INSTRUCTIONS FOR USE 
The Home Accounting Program is listed in the next 
chapter. It is a long program and will take you a long 
time to key in, with every chance of introducing a few 
errors along the way. It has therefore been made 
available on tape from Kuma Computers. The tape has 


not been protected, so you can study the source listing 
and amend it if you wish. 


Reset the system and execute the program by 
inserting the pregram cassette and holding down CTRL 
and pressing the smal] ENTER key. The program is a 
large one and will take several minutes to load if it 
has been recorded at the slow speed. Therefore it may 
well be worth your while saving it at the higher speed. 


You will be asked for the date. Enter it as a 6- 
digit number in the form day-month-year. 


A prompt asks you for a file name. The program 
can hold several hundred payments and receipts spread 
over up to 10 accounts. For most users it will be 
convenient to keep 3 months” data on one tape, so you 
may decide to call the files 1084, 2084, etc. It is 
worth including the current date, ie. the date you 
created the data in the filename also, soa full name 
might be “1984 4/5/84°. You are allowed a maximum of 
16 characters. 


You will then be asked whether the file already 
exists. If this is the first time of use it will 
obviously not exist, so answer N (for No). Of course 
you will need a blank tape or two ready. 


Option Selection. 


The screen then changes to a menu selection, with 
an arrow indicating the current choice, of which there 
are 6. A list of suboptions, on the right of the 
screen relates to the choice to which the arrow is 
pointing, “Accounts”. 


The up and down arrow keys are used to position 
the screen arrow where you want it. Experiment by 
pressing the keys and you will find that only 5 keys 
have any effect: 


-- Page 138 -- 


sure 


AMSTRAD EXPLORED 


- The ESC key (which you should not use 


break into the program). 


since 
there is no reason why you should want 


to 


- The up and down arrow keys. Pressing the up- 


arrow key when you are already on the 
line will take you to the bottom line, 
vice versa. 


- The ENTER key selects your choice 
“freezing ~ the left-hand arrow and 
offering you a second arrow opposite the 
of subchoices. 


- The CLR key is a “‘quick-escape’ key, 
takes you back to the list of choices if 


top 
and 


which 


you 


were among the subchoices, and positions you 
at the exit if you were already on the left- 


hand side. 


The screen handling is meant to be easy! 
you are well acquainted with it. 


Home Accounting 


Choices Sub-choices 
=~ Accounts Show Balances 
Receipts Add New 


Payments List Names 

Transfers Delete Existing 

Standing Orders Transfer to New Period 

Exit os ha Opening Balances 
xit 
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Get Familiar! 


Before trying to put on “real” data you are 
strongly advised to get familiar with all the options 


of the program. Enter a few account names, a_ few 
payment and receipt categories and methods, then enter 
20 or 30 transactions, and display the current 


balances, the analysis of payments, etc. This will 
help you decide on which categories you wish to adopt. 
Far better to get them right at the beginning than to 
change them later, even though the facilities are there 
for you to do exactly that if you wish. 


Setting up Initial Data. 


Assuming this is the first time of use, you will 
have to enter some constant data, and you will need to 
think carefully of how you wish to hold the data before 
you enter it. The program allows you to change your 
mind later and add extra payment categories or 
whatever, but the advantage of choosing a scheme and 
staying with it is that you can compare two periods 
easily. 


The decisions to be taken at this stage are: 


- the number of accounts. 
= the payment categories. 
= the payment methods. 
= the receipt categories. 
7 the receipt methods. 


In addition you will want to enter details of 
standing orders and direct debits. 


Program Capacities. 


Because this is a tape based system we accumulate 
all the data in memory and write it out at the end. 
This means there is a limit to how much data we can 
hold at any time. The limits are: 


10 accounts 

30 payment categories 

15 receipt categories 

20 payment methods 

10 receipt methods 

150 payment transactions 

100 receipt transactions 

20 standing orders or direct debits 
20 transfers between accounts. 
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You may find that the program slows up when you 


are approaching the limits. This is because 
housekeeping is taking place frequently to allow space 
for variables to be manipulated - the so-called 
“garbage collection’. It is therefore adviseable to 


keep comfortably below the limits. A routine exists to 
transfer the constant data and the closing balances of 
one period to become the opening balances of the next. 


When you get used to the system you may find - for 
example - that you need more payment categories, but 
never use more than 3 receipt categories. By all means 
experiment and alter the limits to suit yourself. The 
program is designed so that such change is’ easy. See 


the program commentary in the next chapter which will 
tell you what statements to change. 


Choice 1 - Accounts. 


In the context of this program an account can be a 
current bank account, a deposit account, a Giro 
account, a credit-card account, etc. If you use a 
credit card you may prefer merely to keep records of 
your current account, and to record cheques sent to the 
credit card company as payments. I find it more 
convenient, although a little more work, to keep a 
record of the credit card balance and transactions, so 
I enter the credit card as an account, anda _ cheque 
drawn on the current account made out to the credit 
card account is then a transfer, not a payment. 


The purpose of a program like this is to enable 
you to manage your affairs the way you would like, not 
to enforce a totally alien way of working on you. So 
experiment to find out what way suits you! 


Choose ACCOUNTS and you will see 7 subchoices: 


SHOW BALANCES 

ADD NEW 

LIST NAMES 

DELETE EXISTING 
TRANSFER TO NEW PERIOD 
ADJUST OPENING BALANCES 
EXIT 


Accounts Subchoice 1 - Show Balances. 
Displays all accounts with the opening balances, 


payments, receipts, transfers and closing balances. 
Needs 80 columns. A frequently used option! 
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Account Subchoice 2 - Add New. 


Enables a new account to be added. All that is 
necessary is the name which may be up to 20 characters 
long. 


Account Subchoice 3 - List Names. 


The names of all the accounts are listed. 


Account Subchoice 4 - Delete Existing. 


Any account can be deleted. However, if you 
delete an account with existing transactions or balance 
it will make a nonsense of your figures, so this 
option should very rarely be used. 


Account Subchoice 5 - Transfer to New Period. 


When you have completed a file for one period and 
wish to move forward to the next because you are 
approaching the data limits, use this option which 
will: 


- calculate the closing balance for each 
account to become the opening balance for the 
new period. 


- clear out all details of payments made, 
amounts received, and transfers made. 


Constant data, namely account names, payment 
categories and methods, receipt categories and methods, 
and standing orders are maintained intact so do not 
need to be entered in the new period. 


Note that this option does NOT create a file, you 
still need to save the new period data before exiting 
from the program. Of course you must also have saved 
the old period data before running this option. 


Account Subchoice 6 - Adjust Opening Balance. 


With most accounts you will need to enter an 
opening balance when you first use the program, since 
it is unlikely to be zero. Of course in subsequent 
periods the opening balance is created not by using 
this option but by transferring the balances from the 
previous period using subchoice 5. 
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If you have run subchoice 5, transferring the 
balances from a previous period, then subsequently find 
an error in the previous period which obliges you to 
amend the data, you can use this option to adjust the 
opening balance to take care of the error. 


Account Subchoice 7 - Exit. 


This deletes the right-hand arrow and returns you 
to the menu of choices on the left-hand side. 


Choice 2 - Receipts. 
There are 11 subchoices: 


ADD NEW 

DELETE 

LIST 

SUMMARISE 

LIST CATEGORIES 
ADD CATEGORY 
DELETE CATEGORY 
LIST METHODS 
ADD METHOD 
DELETE METHOD 
EXIT 


Receipts Subchoice 1 - Add New. 


Up to 100 receipts can be stored in total. You 
will normally be entering from a paying-in counterfoil 
or book of counterfoils. Receipts for one account are 
dealt with at one time. 


You are prompted for the name of the account. 
Enter the first letter of the account, and if valid, 
the account name is displayed. Then enter up to 16 
receipts, the data for each one being: 


= The Date, as DDMM. After the first line, the 
program remembers the date you used last 
time, so you can press ENTER to accept it as 
the default. This saves keying. Overwrite 
it with a new date if you need to. 


- A transaction identifier. Any 3 characters 
will do, or you can press ENTER to omit if 
you wish. 


= The amount. Up to #32767 plus 2 decimal 


places are allowed, which should cater for 
most of us. 
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= Category. This is used to allow you to 
analyse your receipts over a period. You may 
decide on a breakdown such as SALARY, 
INTEREST RECEIVED, GIFT (if you are _ so 
lucky!), TAX REBATE (we can all dream), etc. 
Of course you cannot use this option until 
you have selected and entered categories 
using subchoice 6. Categories are identified 
by the first 2 characters of their name. 


16 entries should be ample for most people, but if 
you wish to enter more, the screen will be cleared and 
you can continue. If you fill up the 100 allocation, 
you will be informed that there is no more space, and 
you can use the option to transfer all data to a new 
file before continuing. 


Note that if you make an error while entering a 
field you can use the left arrow or the DELete key to 
move back and correct. If you notice the error after 
you have pressed ENTER but before you have finished the 
line, you can press ENTER when asked for a category or 
an amount and the system will “back-pedal” and move you 
back to a preceding field. If you only notice an error 
after you have completed the entire line you will have 
to use the DELETE EXISTING option to delete the entry, 
then return to this option to enter it correctly. 


You will normally wish to enter in date order, but 
this is not obligatory. 


Receipts Subchoice 2 - Delete. 


Use this to delete any receipt entered in error. 
You can scan through the list of receipts, using the up 
and down arrow to move up and down the page, and using 
the left arrow and the ENTER key to move forward and 
back pages. When the arrow is opposite the entry you 
wish to delete, press D or d and the entry is at once 
deleted. So make sure you have the right one! 


Press the CLR key to return to the menu. 
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Receipts Subchoice 3 - List. 


Use this to scan all receipts. See the 
instructions under subchoice 2 for details of how to 
scan forward or back. 


Receipts Subchoice 4 - Summarise. 


This option analyses all your receipts for the 
period by category and lists them. 


Receipts Subchoice 5 - List Categories. 


Use this to remind you what categories you have 
selected. Upto 15 are allowed. 


Receipts Subchoice 6 ~- Add a Category. 


Use this to add a new receipt category. The first 
2 characters must be unique, so your option will be 
rejected if they have already been used for another 
category. This is sometimes restrictive, but it is a 
distinct advantage when entering a category to be able 
to remember the code without an artificial system such 
as 1 for SALARY, 2 for BANK INTEREST, etc. which you 
are forever forgetting. 


Receipts Subchoice 7 - Delete a Category. 


You can delete a receipts category at any time, 
but your figures will be invalid if you delete a 
category in use. So use option 5 first, to check the 
status of the category in question. 


Receipts Subchoice 8 - List Methods. 


You can choose to differentiate between different 
methods of receiving money into the accounts. This can 
be useful if you are checking later. Examples of 
different methods are: PAYING IN BOOK 1, ADJUSTMENT, 
BANK GIRO. Of course if you do not want to use this 
option, create one method called MISCELLANEOUS and use 
only that! 


Receipts Subchoice 9 - Add New Method. 


You can have upto 10 methods of receiving amounts. 
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Receipts Subchoice 10 - Delete Existing Method. 


Be careful not to delete a method already in use. 


Receipts Subchoice 1l - Exit. 


Leave Receipts subchoices and return to left-hand 
choices. 


Choice 3 - Payments. 


There are exactly the same 11 subchoices as for 
receipts: 


ADD NEW 

DELETE 

LIST 

SUMMARISE 

LIST CATEGORIES 
ADD CATEGORY 
DELETE CATEGORY 
LIST METHODS 
ADD METHOD 
DELETE METHOD 
EXIT 


but you will probably be entering far more 
payments than receipts, and maintaining more category 
and method information. 


Payments Subchoice 1 - Add New. 

Up to 150 payments can be entered in total. The 
headings are as for receipts. The optional transaction 
number will very probably be used for the last 3 digits 
of the cheque number and will be a great help in 
checking your bank balance. 


Payments Subchoice 2 - Delete. 


Use this to delete any payment entered in error. 
See under receipts. 
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Payments Subchoice 3 - List. 


As for receipts. 


Payments Subchoice 4 - Summarise. 


As for receipts. 


Payments Subchoice 5 - List Categories. 


Use this to remind you what categories you have 
selected. Up to 30 are allowed. You will probably have 
more payment categories than receipt categories. 
Entries such as MOTORING, COMPUTERS, ELECTRICITY, GAS, 
WATER RATES, RATES, MORTGAGE, HOUSEKEEPING, HOLIDAYS, 
etc. will be typical. Notice however that the first 
two letters must be unique, so that MORTGAGE and 
MOTORING are not allowed together, nor are HOUSEKEEPING 
and HOLIDAYS. It is usually not difficult to select an 
alternative name. 


Payments Subchoice 6 - Add a Category. 


As for receipts. 


Payments Subchoice 7 - Delete a Category. 


As for receipts. 


Payments Subchoice 8 - List Methods. 


Typical methods will be CHEQUE, INTEREST CHARGED, 
DEDUCTION AT SOURCE, STANDING ORDER. 


Note that if you choose to use the standing order 
option (see below) you must ensure you create a payment 
method STANDING ORDER, because that option inserts 
payment entries with a category code of ‘ST’. 


Upto 20 payment methods are allowed. 


Payments Subchoice 9 - Add New Method. 


As for receipts. 
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Payments Subchoice 10 - Delete Existing Method. 


As for receipts. Once again, be careful not to 
delete a method already in use. 


Payments Subchoice 11 - Exit. 


Leave Payments subchoices and return to left-hand 
choices. 


Choice 4 - Transfers. 


The transfer facility is used to record transfers 
between your accounts, which are not payments or 
receipts in that they do not affect your net position, 
only where the money is kept. You can record up to 20 
transfers in any period. 


The subchoices are: 


LIST 
ADD 
DELETE 
EXIT. 


Transfers Subchoice 1 - List. 


Lists all transfers for this period using the 80- 
column screen. 


Transfers Subchoice 2 - Add. 
When adding a new transfer you will be asked for: 


= The “From Account’, ie. the account giving up 
the money. For example you may well be 
paying some money to your. credit card 
accounts to settle up in full or in part, in 
which case the From Account is probably the 
Current Account. 


- Date (DDMM). A default may be chosen after 
the first entry. 


- A Transaction number (optional). May be the 
last 3 digits of a cheque number, or anything 
else you wish. 


= The amount. 
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= The “To Account’. The account receiving the 
money. 
Once again, error-correction facilites are 


provided, so that you can back-track if you discover 
errors before the end of the line. 


Transfers Subchoice 3 - Delete. 


Use this to take care of any error made _ while 
adding transfers. 


Transfers Subchoice 4 - Exit. 


Return to the list of choices. 


Choice 5 - Standing Orders. 


This option is intended to be used both for 
standing orders and for direct debits. It covers only 
the payment side, there is no equivalent on the receipt 
side, as most people receive only 1 regular receipt - 
the salary cheque. 


The standing order file is a memorandum file only, 
nothing is activated until you use the CONFIRM option 
which uses the standing order information to make a 
payment transaction. 


Entries in this file do not need to have a_ month 
entered. For example if you have a payment which is 
made on the 16th of each month, enter the date as 1600, 
ie. the month being 0. This is printed as a blank, but 
reminds you that the order is a monthly one. For an 
annual payment you will enter the full date. 


The subchoices are: 


LIST 
ADD 
DELETE 
CONFIRM 
EXIT 


Standing Order Subchoice 1 - List. 


There are a maximum of 20 standing orders, or 
direct debits. Remember that the existence of an order 
in the list does not mean that payment is made 
automatically. It is only made when you confirm it, 
using the CONFIRM option. 
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Standing Order Subchoice 2 - Add. 

Use this to add a new standing order. See above 
for instructions on how to enter the date. 
Standing Order Subchoice 3 - Delete. 

Use this to delete a standing order. This will 
not affect any payments already made under this order. 
Standing Order Subchoice 1 - Confirm. 


You should review the standing orders once a month 


and confirm them as _ required. It is only when 
confirming that a payment transaction is actually 
recorded. While using this option you have the option 
to adjust the payment actually made, since this 


occasionally changes by lp or 2p due to rounding etc. 


Standing Order Subchoice 1 - Exit. 


Use this to leave the standing order subchoice and 
to return to the left-hand choices. 


Choice 6 - Exit. 


You select this when you have finished for the day 
and wish to leave the program. If you have been merely 
reviewing the data and have not changed anything you 
are allowed to exit at once, but if you have updated 
anything the program will not be happy until you have 
inserted a data tape and have saved the file. 


Do not of course overwrite your most recent file! 
If anything happens to the tape you have then lost the 
lot. Keep several tapes in circulation, they are cheap 
enough if you use Cl2s. 
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CHAPTER 19 
PROGRAM COMMENTARY 


The home accounting program is written in a 
fashion that should allow it to be understood and 
modified. Because it is a large program and it is 
desired to keep a considerable amount of data in memory 
in addition, it means that the program has to. be 
written in a condensed style with few comments”) and 
frequently with several statements on one line. So 
this chapter serves as the comments. 


The main thread of the program is short, lines 5 
to 999, BREAK is intercepted so that no data is lost. 
You can always pull the plug out... 


Initialisation is at 1000-1999. Experiment with 
colour by all means by altering 1010-1020. Feel free 
to change the maximum quantities by altering lines 
1100-1180. 


If you wish to send an initialisation string to a 
printer, do it here. 


The file is loaded in 2000-2499 and saved in 2500- 
2999, Any changes to the data format must of course be 
mirrored in the other routine. 


The date is entered as DDMMYY. Note that it is 
not verified, you could choose the 3lst February if you 
insist. In a commercial program the validation would 
be much tighter. 


The menu is at 3000-3999. Note how use is made of 
the window facility of Amstrad BASIC to facilitate the 
movement of arrows and the printing of lists of 
choices. 


4000 is the clear screen routine. This is made 
into a subroutine so that LN which is used in places as 
a line count can be reset. 


4100 prints a “Press ENTER to continue” message on 
the bottom line of the screen and waits for any key to 
be pressed. 


4200 changes the display to mode 2 (80 columns). 


SCRWIDTH, which is used by the routines that centre 
titles, is set to 80. 
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4300 changes the display back to 40 columns’) (mode 
1). 


4400 asks the user for a ‘screen or printer’ 
decision, and sets appropriate flags. 


4500 checks for the end of page on screen or 
printer. 


4600 ejects if output is to printer. 

4700 sets up windows. 

4800 sets up screen parameters for listing. 
4900 sets up printer parameters for listing. 


5000 routes to the appropriate function according 
to the choice (y2) and the subchoice (y3). 


6000 lists the account names. It will need 
altering if you increase the number of accounts from 10 
beyond what will fit on a single screen (16 or so). 


6500 enables a new account to be added. Note that 
a variable UPDATED is set on once a new account has 
been added. All routines that alter (ADD, DELETE, 
CONFIRM) data set this flag, so that the system can 
tell whether an output file needs to be written when 
you come to exit. 


7000 deletes an account. Statements could be 
added to calculate the closing balance, and to reject 
the deletion request if it was non-zero, but I do not 
feel this is necessary in a home accounts program. We 
are after all, not looking over our shoulders for the 
auditors! 


7500 calculates and displays the balance for each 
account. This is quite quick even with a large amount 
of data. 


8000 is the general-purpose input subroutine and I 
believe you will find it useful in many circumstances. 
It expects the following parameters on input: 


MY - Type of data expected. May be 1 
(A-Z, a-Z, space, quote and _ hyphen 
only), 2 (numeric between the limits of 
32767 and -32768), 3 (any printable 
characters), 4 (must be a= character 
contained within the string x2$), or 5 
(numeric outside the above range and 
principally used for dates). 
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L - Maximum length allowed. Not used for 
T=4, which always expects a_=e single 
character. 


X3$ - Default (optional). If x3$ is set, it 
is displayed and if the user just 
presses ENTER, the contents of x3$ are 
taken as the default, but if the user 
presses any key other than ENTER, the 
default is lost and data must be 
entered. 


The subroutine clears x3$, so it must be 
reset each time it is called. 


X2$ For T=4 only. A string of valid 
characters. Entering any one of these 
will cause the subroutine to exit. 


Data entered is returned as follows: 


If T=1 Data in xl$, length in 20. 

If T=2 Data in z0 and in xl$ 

If T=3 Data in xl$, length in 20. 

If T=4 Position of character in x2$ returned in 
z0. 

Tf T=5 Data in xl$, length in 20. 


If the user presses the CLR button at any time 
during input, (CLR is used instead of ESC, since ESC is 
intercepted by BASIC), the following action occurs: 


= any data already inputted is cleared 
= the screen data is cleared 
= T is set to -5 


so CLR is a general escape route. 


Note that the routine uses, and may destroy x,y 
x1$, z0, x3S$, and 2z$. 


9000-9499 adds a payment or a receipt. Payments 
and receipts share common routines, since most of the 
coding is the same. Note that transactions are held 
economically as 21l-byte strings in the format: 


Ammddddnnnaaaaaaaaacc 


where: 

A = account code 

mm = Payment method code 
dddd = date (ddmm) 

nnn = transaction code 
aaaaaaaaa = amount 

cc = payment category code. 
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9500-9999 is the delete payment or receipt 
transaction routine. 


10000-10999 is the handling routine for errors and 
breaks. 


11000-11299 covers the listing of payment or 


receipt transactions. There is a subroutine at 11300 
which handles the actual printing, which is also called 
by the delete routine. The printing routine is 


designed to allow paging in either direction. 


11500-11999 allows payments or receipts to be 
summarised. 


12000-12499 lists payment categories, 2 te a line. 


12500-12999 adds a new payment or receipt category 
and 13000-13499 deletes a category. 


13500-13999 lists methods, again 2 to a line, 
14000-14499 adds a new method and 14500-14999 deletes 
one. 


15000-15499 lists standing orders, 15500-15999 
adds a new one and 16000-16499 deletes one. 16500- 
16999 confirms a standing order and adds a payment 
transaction. 


Standing orders are kept in the array so$() in the 
format: 

Addddaaaaaaaaacc 

where: 

A = Account code 

dddd = date (DDMM). MM can be blank. 

aaaaaaaaa = amceunt 

eG = category code 


Transfers are catered for by 17000-17499 which 
lists them, 17500-17999 which adds a new one, and 
18000-18499 which deletes one. 


The routine at 18500 covers the transfer to a new 


pericd, and the routine at 19000 handles the adjustment 
of opening balances. 
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Transfers are held in the array xfer$() in the 
format: 


FddddxxxaaaaaaaaaT 


where 

F = From Account code 

dddd = date (DDMM) 

XXX = optional transaction number. 
aaaaaaaaa = amount 

T = To Account code. 
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S ON BREAE GOSUB 10020 

10 REM housekeeping program 

2O REM copyright (c) 1984 John Braga 

20 ON ERROR GOTO 1co000 

40 GOSUS 1000 

50 GOSUB 2000 

60 GOSUB 3000 

65 IF Y2=CHOICES THEN 100 

70 GOSUB 5000 

80 GOTO 60 

100 IF updated THEN GOSUB 2500 

110 GOSUB 4000 

9°99 END 

1000 REM init 

1005 DEFINT 1,s,x 

1010 bBkcol=O:incol=2:pencol=26:titlecol= 

20 

1020 MODE 1:BORDER bkcol: INK 0O,bkcol: INK 
1,pencol: INK 2,incol: INK 3,titlecol:PAP 

ER O:PEN 1 

1025 scrwidth=40: ESC=16 

1040 bkS=CHR# (8) ssign#="——>"s1Ft$=CHRE (2 

42) s:up#=CHR$ (240) : down#=CHR#E (241) enters 

=CHR¥ (13) : cl eosc$=CHR¢ (20): cleol#=CHR# (1 

8) :bel $=CHR¢ (7) 

1050 true=-1i =: false=o 

1060 prliength=66: prlines=60: scrlines=16 

1070 GOSUB 4700:screen=true 

1100 accounts=O0O:maxac=10:DIM balo(maxac) 

»balc (maxac) ,acname$ (maxac) 

1110 reccats=O:maxreccats=15:DIM reccat? 
(maxreccats) 

1120 paycats=0: maxpaycats=30:DIM paycat# 
(maxpaycats) 

11350 paymeths=0: maxpaymeths=20:DIM payme 

ths (maxpaymeths) 

1140 recmeths=0:maxrecmeths=10:DIM recme 

th? (maxrecmeths) 

1150 pays=0: maxpays=150:DIM pay (maxpays 

) 

1160 recs=0:maxrecs=100:DIM rec#(maxrecs 

> 

1170 sos=O0:maxsas=20:DIM sot (maxsaos) 

1180 xfers=O:maxxfers=20:DIM xfer#(maxxf 

ers) 
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1999 RETURN 

2000 REM load 

2010 x#="Personal Accounting Program": y= 
3:GOSUB 4050 

2025 LOCATE 9,12:PRINT "Date (ddmmyy) : 
2t=5:1=6:GOSUB E000: IF z0<>& THEN 2025 E 
LSE date#=LEFTS (x1#,2)+"/"+MIDS (x1#,5,2) 
+"/"4+RIGHTS (x 1#,2) 

20Z0 LOCATE 9,14:PRINT "File name "s2t=5 
=1=16:GOSUB @000:IF xif="" THEN 2050 ELS 
E f$=UPPERS (x12) 

2040 LOCATE 5,16:PRINT “Is this an exist 
ing file? (Y/N) ";:t=1:1=1:GOSUB 8000 
2050 x1t=UFPPERS (x12) 

2060 IF x1i#="N" THEN 2499 ELSE IF “iste” 
Y" THEN 2040 

2100 LOCATE 1,18 : PRINT “Load tape" 
2110 OPENIN f# 

2120 INFUT #9,x*#,f#,accounts,pays,recs,s 
os,xfers,paycats,reccats,paymeths,recmet 
hs 

21350 FOR z0=1 TO accounts: INPUT#9, acname 
$(zO) ybala(zO)}:NEXT 20 

2140 FOR zO=1 TO pays: INPUT #9 pay (z0): 
NEXT 20 

2150 FOR zO=1 TO recs: INPUT #9,rec#(z0): 
NEXT 20 

2160 FOR zO=1 TO sos: INPUT #9,so¥% (20) 2NE 
XT z0O 

2170 FOR z0=1 TO xfers: INPUT #9,xfers(z0 
):NEXT zO 

2180 FOR zO=1 TO paycats: INPUT #9,paycat 
#(z0):NEXT 20 

2190 FOR zO=1 TO reccats: INPUT #9,reccat 
£(20):NEXT 20 

2200 FOR z0=1 TO paymeths: INPUT #97,payme 
th# (20) :NEXT 20 

2216 FOR zO=1 TO recmeths: INFUT #9,recme 
th#(z0):NEXT zO 

2290 CLOSEIN 

2499 RETURN 

2500 REM write 

2510 GOSUB 4000: x#="Home Accounting":y=1 
:GOSUB 4050 


-- Page 157 -- 


AMS TRAD EXPLORED 


2520 LOCATE 1,7:PRINT "Filename for new 
file “3:x3$=f¢:t=3:1=16:GOSUB 8000 

2525 IF xi#="" THEN 2520 ELSE f#=x1¢ 
25230 GPENOUT fF? 

2540 WRITE #9,date$,f#,accounts,pays,rec 
s,sos,xfers,paycats,reccats,paymeths,rec 
meths 

2550 FOR z0=1 TO accounts:WRITE#9,acname 
#(20) ,balo(zO):NEXT 20 

2560 FOR zO=1 TO pays: WRITE #9,pay$(z0): 
NEXT 20 

2570 FOR zO=1 TO recs:WRITE #9,rec#(z0): 
NEXT z0 

2580 FOR 2z0=1 TO sos:WRITE #9,so#(z0):NE 
XT zO 

2590 FOR z20=1 TO xfers: WRITE #9,xfer#(z0 
):NEXT z0O 

2600 FOR z0=1 TO paycats:WRITE #9,paycat 
$(z0):NEXT 20 

2610 FOR zO=1 TO reccats:WRITE #9,reccat 
$(z0):NEXT 20 

2620 FOR zO=1 TO paymeths: WRITE #9,payme 
th$(z0):NEXT zO 

2630 FOR zO=1 TO recmeths: WRITE #9,recme 
th#(z0):NEXT 20 

2640 updated = false 

2700 CLOSEOUT 

2999 RETURN 

3000 REM menu 

3010 GOSUB 4000:x¢="Home Accounting": y=1 
:GOSUB 4050 

3020 choices=6 

3020 RESTORE 3055 

3040 LOCATE 5,7:PRINT "Choices"; TAB(25) 3 
“Sub-choices" 

SOSO x2¢=upt+downst+enter $+CHR$ (esc) : REST 
ORE 2055 

SOSS DATA Accounts,Receipts,Payments,Tra 
nsfers,Standing Orders,Exit 

3060 CLS #1: IF y2=0 THEN y2=1 

3070 FOR 20=1 TO choices:READ x#:PRINT # 
1,x#:NEXT z0O 

3080 CLS #2:LOCATE #2,1,y2:PRINT #2,sign 
#5 
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3090 
3400, 
3100 
3105 
3110 
3120 
1 
S170 
3140 
1 
3150 
3160 
3165 
3170 
#3 
S175 
2180 
3190 
yor 
3195 
2200 
y3t+l 
2210 


3499 
322 


3230 
3300 
3310 
3340 


CLS #4:0N VPOS(#2) GOSUB 3300,3350, 
3450, 3500, 2550 

IF y3>O THEN 23170 

t=4:1=0:GOSUB 8000 

ON =0 GOTO 3120,3140,3160,3545 

IF y2=1 THEN y2=choices ELSE y2=y2- 


GOTO 3080 

IF y2=choices THEN y2=1 ELSE y2=y2+ 
GOTO 3080 

ys=1 

IF subchoices=0 THEN 3900 


CLS #3:LOCATE #3,1,y3:PRINT #3,sign 


t=4:1=0:GOSUB 8000 
ON 20 GOTO 3190,3200,5230,3220 
IF yS=1 THEN y3=subchoices ELSE y3= 


GOTO 3145 
IF yS=subchoices THEN yi=1 ELSE y3= 


GOTO 3165 

ys=subchoices 

GOTO 3900 

RESTORE 32340: subchoices=7 

GOTO 2600 

DATA Show Balances,Add New,List Nam 


es,Delete Existing,New Feriod,Adjust O/B 


al‘s, 
2350 
3360 
3390 
List 
gory, 


Exit 

RESTORE 2390: subchoices=11 

GOTO 34600 

DATA Add New,Delete,List,Summarise, 
Categories,Add Category,Delete Cate 
List Methods,Add Method,Delete Meth 


od,Exit 


3400 
3410 
3450 
3460 
2490 
3506 
33510 
2540 


RESTORE 3390: subchoices=11 

GOTO 2600 

RESTORE 3490: subchoices= 

GOTO 3600 

DATA List,Add,Delete,Exit 
RESTORE 3540: subchoices=5S 

GOTO 3600 

DATA List,Add,Delete,Confirm,Exit 
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7545 
3550 
3600 
3610 
3620 
3699 
3900 
3910 
oToO 

3999 
4000 
4010 
4020 
4030 
4049 
4050 
4060 
4062 
40464 
Y;da 
4065 
4068 
4069 
4070 
4080 
R#(1 
4085 
#13 
4090 
Ful 


AMS TRAD EXPLORED 


y2=choices 

subchoices=0 

FOR 2z0=1 TO subchoices 

READ x$:FRINT #4,x# 

NEXT zO 

RETURN 

REM 

IF y3=subchoices THEN CLS #3: y3=0:G 
3050 

RETURN 

CLS : In=0 : RETURN 

REM centre 

x= (serwidth-LEN(x1#))/2:«1=LEN(« 14) 
LOCATE x,y:FRINT «1435 

RETURN 

REM hding 

x= (serwidth-2-LEN(x#))/2:x1=LEN(x#) 
IF screen THEN 4070 

PRINT #8,TAB(x+1)5x%3 TAB(scrwidth-8 
tet 

PRINT #8, TAB(x+1);STRING#(x1,"=") 
FOR x1=3 TO 6:PRINT #8:NEXT xiz:ln=6 
GOTO 4099 

LOCATE x,y 

PEN 3:PRINT CHR#(125) ;STRING#(x1,CH 
31)) 3 CHR# (139) 

LOCATE x,yt+1: PRINT CHR#(133) 5; «x%;CHR 
8); TAB(scrwidth-8) ;datet 

LOCATE x,y+2:PRINT CHR# (141); STRING 
»CHR# (140) ); CHR# (142); 

PEN 1 : RETURN 

REM pause 

IF NOT screen THEN 4199 

PRINT #6,"Fress ENTER “3:t=1:1=0:G 
8000:CLS #6 

RETURN 

REM mode 2 

MODE 2 

scrwidth=80 

BORDER O: INK 0,0 : INE 1,26 

GOSUB 4700 

RETURN 

REM mode 1 

MODE 1 
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4320 scrwidth=40 

4230 BORDER bkcol: INK O,bkcol: INK 1,penc 

ol 

4340 GOSUB 4700 

4399 RETURN 

4400 REM s/p 

4410 PRINT #6,"Screen or printer (S/F)? 
’ 

4420 t=4:1=0:x2¢=enter¥+"SsFp":GOSUB 800 

ie) 

4430 ON 20 GOSUB 4800,4800,4800,4900,490 

ce) 

4499 CLS#6 : In=0O: RETURN 

4500 REM page 

4510 IF ln=lines THEN GOSUB 4400 

4520 In=lnt+i 

4599 RETURN 

4600 REM eject 

4610 IF screen THEN GOSUB 4100:CLS #5:G0 

TO 4699 

4620 FOR In=In+1 TO prlength:PRINT #8:NE 

XT In 

4699 1n=0: RETURN 

4700 REM windows 

4710 WINDOW #1,5,20,10,25: WINDOW #2,1,4, 
10,25: WINDOW #3,21,24,10,25: WINDOW #4,25 
740,10,25: WINDOW #5,1,80,8,235:WINDOW #64, 
1,80,25,25 

4799 RETURN 

4800 REM screen 

4810 prdev1=0:prdev2=5: lines=scrlines:CL 

S #5:screen=true: RETURN 

4900 REM printer 

4910 prdevi=8:prdev2=8: lines=prlines:scr 

een=false: RETURN 

S000 REM route 

5010 ON y2 GOTO 5020,5100,5200,5300,5400 
»9500 


5020 REM choice 1 - accounts 
5030 ON y2 GOSUB 7500,6500,6000,7000,185 
00,19000 


S099 RETURN 
5i00 REM choice 2 ~- receipts 
5110 pay=false 
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5120 GOTO S210 

S200 REM choice 3 

5205 pay=true 

5210 ON yS GOSUB 2060,9500,11000,11500,1 
2000 ,12500, 15600, 17500, 14000,14500 

5299 RETURN 

S300 REM choice 4 

S210 ON y3 GOSUB 17000,17500,18000 

S399 RETURN 

5400 REM choice 5 

5410 ON y3 GOSUB 15000, 15500, 16000, 14500 
S499 RETURN 

S500 REM choice 6 

6000 REM list ac 

6010 GOSUB 4400 

6020 GOSUB 4000: «#="Account Names": Y=1:G 
OSUB 4050 

6030 FOR z9=1 TO accounts:GOSUB 4500:FRI 
NT #prdev2,acname?(z9) 

6050 NEXT 29 

6060 GOSUB 44600 

6070 GOSUB 4800 

6499 RETURN 

6500 REM add ac 

6510 GOSUB 4000: x#="New Account Addition 
“sy=1:GOSUB 4050 

6515 IF accounts=maxac THEN FRINT #6, "Ai 
1 accounts allocated! Press ENTER ";:t=1 
:1=0:GOSUB 8000:GOTO 46999 

6520 CLS #5 

6530 FOR z0=1 TO accounts 


6540 FRINT #5,acnamet#(z0) +: NEXT 20 

6600 CLS #6:PRINT #6,"New Account "3;:LOC 
ATE 13,25: t=1:1=20:GOSUB 8000: CLS#& 

6610 IF x1¢=""" THEN 6999 ELSE x1$=UPPERS 
(x 1#) 


6620 FOR 20=1 TO accounts 

6630 IF LEFT#(x1¥,1)=LEFT# (acname¥(z0O) ,1 
») THEN 6600 

6640 NEXT zO 

6650 accounts=accounts+l:updated=true:ac 
name# (accounts) =x1¢ 

6660 PRINT #5,x1# 

6670 IF accounts*maxac THEN 6600 
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6680 CLS #6:PRINT #6,"All accounts alloc 
ated! Fress ENTER";:t=1:1=0:GOSUB 8000:C 
LS#6 

6999 RETURN 

7000 REM dei ac 

7010 GOSUB 4000:x#="Account Deletion":y= 
1:GOSUB 4050 

7020 CLS #5 

7030 FOR zO=1 TO accounts 

7040 PRINT #5, acname$(z0) 

7050 NEXT z0 

7100 CLS#4:FRINT #6,"First letter of del 


eted account “;:LOCATE 33,25:t=1:1=1:GOS 
UB 8000 
7110 IF x1#="" THEN 7499 


7120 FOR zO=1 TO accounts : IF UPPER#(x1 
$) =LEFT# (acname$(z0) ,1) THEN 7200 

7130 NEXT z0 

7140 CLS #46:PRINT #6,"No such account! 
Press ENTER ";:t=1:1=0:GOSUB 8000:CLS #6 
:GOTO 7100 

7200 IF balo(z0)=0 THEN 7200 

7210 CLS#6:PRINT #6,"Unable to delete no 
n-zero account. “3;:t=1:1=0:GOSUB 8000:CL 
S#6:GOTO 7100 

7300 accounts=accounts-1l:updated=true 
7305 IF z»accounts THEN 7320 

7310 FOR z=z0 TO accounts: acname$ (z)=acn 
ame#(z+1):balo(z)=balo(z+1):NEXT z 

7330 GOTO 7020 

7499 RETURN 

7500 REM bal 

7505 IF accounts=0 THEN 7990 ELSE GOSUB 
4400 

7507 GOSUB 4200 

7510 x#="Current Balances": y=1:GOQSUB 405 
(0) 

7520 LOCATE 1,7:GOSUB 4500:PRINT #prdevi 
7 TAB(20)5" Opening Receipts Trans 
fers Spent Closing" 

73530 wo=0: tg=0: ts=0:tc=0 

7532 FOR 2z0=1 TO accounts 

7534 FOR z1i=1 TO xfers:IF LEFT#(xfer#(z1 
),1)=LEFT#(acname#(z0),1) THEN ax=ax—-VAL 
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(MID? (xfer$(z1),9,9)) 

7536 IF RIGHTS (xfert#(z1),1) =LEFTS (acname 
$(20),1) THEN ax=ax+VAL (MIDS (xfer#(z1),9 
17)? 

7538 NEXT z1 

7542 FOR Zi=1 TO PAYS: IF LEFT#(PAY$(Z1), 
1) =LEFT# (ACNAME?(Z0) ,1) THEN AS=AS+VAL (M 
ID$ (PAYS (Z1) ,11,9)) 

7544 NEXT Z1 

7546 FOR Z1=1 TO recs:IF LEFT#(rec#(Z1), 
1) =LEFT$ (ACNAME¢ (Z0),1) THEN Ag=Ag+VAL (M 
ID (rec¥#(Z1) ,11,9)) 

7548 NEXT zi 

7550 ao=balo(z0):balc (z0) =ao-astaxtag:ts 
=tstas:tg=tgtag: tc=tc+balc (z0) :wo=wotao 
7560 GOSUB 4500:PRINT #prdev2,acname¥ (z0 
>; TAB(21); 

7570 PRINT #prdev2,USING "iii. ##"> ABS 
(a0)3:IF ao<O THEN PRINT #prdev2,"cr "; 
ELSE PRINT #prdev2," a 

7580 IF ag>O THEN PRINT #prdev2 »USING "# 
HHH. HH “3;ag;:AG=0 ELSE PRINT #prdev2 
» SPACE# (12) 5 

7590 IF ax<>O THEN PRINT #prdev2,USING " 
HHHHHH. HH “3ax3:AX=O ELSE PRINT #prdev 
2,SPACE# (12); 

7600 IF as>O THEN PRINT #prdev2,USING "# 
HHHHH. HH “3;as;:AS=0 ELSE PRINT #prdev2 
+SPACES$ (12) 5 

7610 PRINT #prdev2,USING "##i##i#. HH": ABS 
(balc(20))3:IF balc(z0)<O THEN PRINT #pr 
dev2,"cr" ELSE PRINT #prdev2 

7620 NEXT z0O 

76350 GOSUB 4500:PRINT #prdev2 

7640 GOSUB 4500:PRINT #prdev2,"Total";TA 
B(21); 

7650 PRINT #prdev2,USING “dH. #4" 5 ABS 
(wo) 5:IF wo<O THEN PRINT #prdev2, "er "s 
ELSE PRINT #prdev2," ar 

7660 PRINT #prdev2,USING. "HHEHHH. HH M5 
tg,0,ts; 

7670 PRINT #prdev2,USING "“######. ht tapas 
(tc);:IF tce<O THEN PRINT #prdev2?,"cr" EL 
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SE PRINT #prdev2 

7990 GOSUB 4400 

7999 GOSUB 4300:GOSUB 4800: RETURN 

8000 REM get 

8005 REM t=1 (alpha) ,2(numeric) ,3(any) ,4 
(x2$) ,5(num>32767) 

8010 y=VPOS(#0) : x=POS (#0) 

8012 IF scrwidth=80 AND 1>0 THEN PRINT b 
k#3 wEMy 

8020 PAPER 2:PRINT STRING#(1," ");5 

8022 IF scrwidth=80 AND 1>0 THEN PRINT " 
J"; 

8023 LOCATE x,y 

8025 IF x3$<>"" THEN PRINT x3$3:LOCATE x 


8030 xi¢="" 

8040 z#=INKEY$: IF z#="" THEN 8040 

8045 IF t=4 THEN z#=UPPER#(z#):GOTO 8095 
BOSO zO=ASC (z#) 

8060 IF z0=13 THEN 8992 

8070 IF zO=ESC THEN 8990 

8080 IF LEN(x14#)>0 THEN IF z0=242 OR 20= 
127 THEN 8800 

8090 IF LEN(x14#)=L THEN 8040 

8095 ON t GOTO 8100,8200,8300,8400,8200 

8100 REM alpha 

8105 IF 20=32 OR z0=39 OR z0=45 THEN 850 


68110 IF 20<48 OR z0>122 THEN 8040 
8120 IF z0>57 AND z0<45 THEN 8040 
8130 IF z0>90 AND z0<97 THEN 8040 ELSE 8 


8200 REM num 

8210 IF (z0>=45 AND z0<58) AND z20<>47 TH 
EN 8500 ELSE 8040 

8300 REM any 

8310 IF z0<32 THEN 8040 ELSE 8500 

8400 REM x2 

8410 zO=INSTR(1,x2#,z$):IF zO=0 THEN 804 
O ELSE 8999 

8500 PRINT z$;:x1$=x1$+zF 

8510 IF LEN(x1#)=1 THEN FRINT SPC(1-1);: 
LOCATE x+1,y 

8520 GOTO 8040 
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8800 REM bk 

8810 PRINT bkS$t+" "“+bk$3 2x 1$=LEFTS (x1$,LE 
N(x 1#)-1) 

8820 GOTO 8040 


8990 t=-S2x1g=""2sxXSs=""2z0=0:LOCATE X,Y: 
PRINT SPC(L);:GOTO 8999 

8992 IF x1$="" AND x3#<>"" THEN x1#=x5 
8993 xss="" 


8995 IF t=2 THEN IF LEN(x1#)>O AND x1i#<> 
"l" THEN zO=VAL(x1#) ELSE 20=0 

8996 IF t<>2 THEN z0=LEN(x1$) 

8999 PAPER O:RETURN 

9000 REM add trans 

9005 IF pay THEN trans=pays:maxtrans=max 
pays: meths=paymeths: cats=paycats:x$="New 
Payments" ELSE trans=recs:maxtrans=maxr 
ecs:meths=recmeths:cats=reccats: x#="New 
Receipts" 

9007 IF meths=0O OR cats=0 OR accounts=0 
THEN 9499 

9010 GOSUB 4000: y=1:GQSUB 4050 

9012 IF trans=maxtrans THEN 9450 

9020 LOCATE 1,6:PRINT cleol#+"Account "5 
2t=3:1=1:GOSUB SOOO: IF x1$="" THEN 9499 
ELSE x14=UPFERS (x1?) 

9030 FOR zO=1 TO accounts:IF LEFT#(x1#,1 
)=LEFT$ (acname$(z0),1) THEN 9045 

9040 NEXT zO : GOTO 9020 

9045 xO$=x 1$+SPACE$ (20) 

9050 LOCATE 1,6:FRINT acname#(z0); TAB(25 
»;"Method "3; 

9055 IF meths>1 THEN 9060 

9057 IF pay THEN x1#=LEFTS (paymeth#(1),2 
) ELSE x1#=LEFT#(recmeth#(1),2) 

9058 GOTO 9070 

9060 LOCATE 32,6:t=3:1=2:GOSUB 8000: IF x 
1#="" THEN 9020 ELSE x1#=UPPER# (x1#) 
9070 FOR zO=1 TO meths:IF pay THEN x#=pa 
ymeth#(z0) ELSE x#=recmeth#(z0) 

9072 IF LEFT#(x1#,2)=LEFT#(x#,2) THEN 70 
90 

9080 NEXT zO : GOTO 7060 

9090 MID#(xO¢,2,2)=x1F:LOCATE 25,6: PRINT 
cleol¥#+x# 
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9100 LOCATE 1,7:PRINT "DDMM No. Amount 

Category": ln=8:x3#=LEFT# (date#,2) +MIDE 
(date$,4,2) 
9110 CLS#46:PRINT #6,"Enter date (DDMM) o 
r press CLR to exit";:LOCATE 1,in: PRINT 
cleol#;:t=2:1=4:GOSUB 8000:CLS#6: IF LEN( 
*14#)=0 OR x1#="0000" THEN 9000 
9120 MIDS (xO0#,4,4) =x1$ 
9150 PRINT #6,"Enter transaction id. or 
press ENTER";:LOCATE 6,In:FRINT clels$;: 
t=2:1=23:GOSUB 8000: CLS#e 
9160 MID#(x0%,8,3) =LEFTS (x 1$+" ",3) 
9200 PRINT #6,"Enter amount, or CLR to c 
orrect";:LOCATE 10,1ln:PRINT cleol$;:t=2: 
1=9:GOSUB 8000: CLS#6S: IF 20=0 THEN 9110 
9210 LOCATE 10,1In:FRINT cleol?;USING "## 
HHHH. H4"5 20; 
9220 MIDS (xO#,11,9) =MID#(STR# (20) +" 

We 2 oF) 

9220 Locate 20,1n: PRINT cleol¥#; 
9232 IF cats?1 THEN 9238 
9234 IF pay THEN x1#=LEFT#(paycat#(1),2) 
ELSE x1#=LEFT#(reccat#(1),2) 
92236 GOTO 9250 
9238 PRINT #6,"Enter category code, or C 
ri to correct. ";:t=3:1=2:GOSUB 8000: CLS# 


ea6 IF x1i#="" THEN 9200 ELSE x1#=UPPERS 
(x 1) 

9250 FOR zO=1 TO cats: IF pay THEN x#=pay 
cat#(z0O) ELSE x#=reccat#(z0) 

9255 IF LEFT#(x1#,2) =LEFT#(x#,2) THEN 93 


9260 NEXT 20 : GOTO 923 

9300 LOCATE 20,1n:FPRINT x# 

9310 MID#(xOF, 20,2) =x1t 

9320 trans=trans+i:updated=true: IF pay T 
HEN pays=trans:pay# (pays) =x0# ELSE recs= 
trans:rec# (recs) =x0# 

9330 IF TRANS=MAXTRANS THEN 9450 

9340 IF 1ln=23 THEN GOSUB 4100:GOTO 9000 
9350 ln=ln+1:x3#=MID$ (x0$,4,4):GOTO 9110 
9450 IF pay THEN x#="All payments alloca 
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ted! “ ELSE x#="All receipts allocated! 


9460 CLS#4:PRINT #6,x2%3:t=1:1=0:GOSUB 80 
00: CLS#6& 

9499 RETURN 

9500 REM del trans 

9505 GOSUB 4200 

9510 IF pay THEN x#="Payment Deletion" E 
LSE x#="Receipt Deletion" 

9515 y=1:GOSUB 4050 

9520 LOCATE 1,7:x2#=CHR# (242) +CHRE (16) 4+C 
HR$ (13) +CHR# (240) +CHRE(241)+"Dd" 


9530 PRINT "Account Date 
Method No. Amount Catego 
ry" 


9540 IF pay THEN trans=pays: meths=paymet 
hs:cats=paycats ELSE trans=recs:meths=re 
cmeths:cats=reccats 

9545 2B8=1:x4¢""3x5F="":GOSUB 4800 

9550 GOSUB 11300:1n=0:ptr=8 

9555 LOCATE 77,ptr:PRINT " <="5 

9560 CLS #46:PRINT #6,"Use ENTER, CLR or 

"SLFT#;" to move, “supss or “s;downts;" t 


o select, D to delete. "3;:t=4:1=0:GOSUB 
8000: CLS#6 
9570 ON 20 GOTO 9580,9999,9606,9700,9700 
+7800 , 9800 


9580 28=z8-16:I1F z8¢1 THEN 28=1 

9585 GOTO 9550 

9600 IF 29<= trans THEN z8=294+1:GOTO 955 
O ELSE 9999 

9700 LOCATE 77,ptr:FRINT " ms 

9710 IF zO=4 THEN ptr=ptr-1 ELSE ptr=ptr 
+1 

9720 IF ptr<8 THEN ptr=8 

9730 IF ptr>23 THEN ptr=23 

9735 IF ptr-7>(trans-z8+1) THEN ptr=ptr- 
1 

9740 GOTO 9555 

9800 2z1=z8+ptr-8 

9810 FOR 29=z1 TO trans-1i 

9820 IF pay THEN 9840 

9830 rec#(z9)=rec#(z9+1) : GOTO 9850 
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9840 pay#(z29) =pay#(z9+1) 
9850 NEXT 29 
9860 updated=true: IF pay THEN pays=pays— 
1 ELSE recs=recs-1 
9870 trans=trans-1 
9880 GOTO 9550 
9999 GOSUB 4300: RETURN 
10000 REM error 
10010 PRINT "Error";ERR; "at"; ERL 
10020 PAPER O:PEN 1 
10030 MODE 1 
10999 STOP 
11000 REM list trans 
11005 GOSUB 4400 
11007 IF screen THEN GOSUB 4200 
11010 IF pay THEN x#="List of Payments" 
ELSE x#="List of Receipts" 
11015 GOSUB 4000: y=1:GOSUB 4050 
11020 LOCATE 1,7:x2$=CHR# (242) +CHR$ (146) + 
CHR# (13) 
11022 PRINT "Account (ENTER for all) “35: 
=3:1=1:GOSUB 8000 
110235 x4#=UPPERS (x 1#) 
11024 LOCATE 1,9:FPRINT "Category (ENTER 
for all) “3:t=3:1=2:GOSUB BOOO 
11025 xS#=UPPERS (x14) 
11027 LOCATE 1,7:FRINT cleosc#; 
11020 GOSUB 4500:PRINT #prdevi1, "Account 
Date Method No. 
Amount Category" 
11040 IF pay THEN trans=pays:meths=payme 
ths:cats=paycats ELSE trans=recs:meths=r 
ecmeths:cats=reccats 
11045 28=1 
11050 GOSUB 11300 
11055 IF NOT screen THEN 11100 ELSE In=0 
11060 CLS #4:FRINT #6,"Use ENTER for mor 
e, "slft#3" to go back, or CLR to quit " 
32 t=4:1=0:GOSUB 8000: CLS#6 
11070 ON 20 GOTO 11080,11250,11100 
11080 REM back 
11090 z28=z8-16:I1IF z8<1 THEN z8=1 
11095 GOTO 11050 
11100 REM forward 
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11110 IF 29%= trans THEN 28=29+1:GOTO 11 


11250 REM quit 

11255 IF NOT screen THEN GOSUB 4600 
11260 GOSUB 4200 

11299 GOSUB 4800: RETURN 

11300 REM list pay or rec 

11302 CLS #5 

11305 FOR z9=z8 TO trans 

11310 IF pay THEN x$=pay$#(z9) ELSE x#=re 
c#(z9) 

11312 IF x4$<>"" THEN IF x4$< >LEFT#(x$,1 
> THEN 11420 

113513 IF x5$<>"" THEN IF x5#< >RIGHT# (x, 
2) THEN 11420 

11315 xOS=LEFTS (x#,1) 

11320 FOR z1=1 TO accounts:IF xO#=LEFTS ( 
acname#(z1),1) THEN 11330 

11325 NEXT z1 : GOTO 11335 

11330 xO#=acnames (z1) 

112335 GOSUB 4500:PRINT #prdev2,x0O#; TAB(2 
2) ;MID$(x$,4,2)5"/"5MIDS(x$,6,2)5" "5 
L1336 KOF=MIDE (x $,2,2) 

11337 FOR z1=1 TO meths 

11340 IF pay THEN meth?=paymeth#(z1) ELS 
E meth#=recmeth# (z1) 

11345 IF xO#=LEFT?¢(meth#,2) THEN 11255 
11350 NEXT 21 : GOTO 11260 

11355 xOS=meth# 

11360 PRINT #prdev2,x0$; TAB(4S) sMID#(x#, 
8,3);" Ws 

11365 PRINT #prdev2,USING "######H. HH * 
3 VAL (MIDS (x#,11,9))35 

11370 xO$=RIGHT$ (x#,2) 

11375 FOR z1=1 TO cats 

11380 IF pay THEN CT¢=paycat¥$(z1) ELSE C 
T$=reccat$(z1) 

11385 IF xO#=LEFTS(CT$,2) THEN 112395 
11390 NEXT 21:GOTO 11400 

11395 xO$=CTS 

11400 PRINT #prdev2,x0¢ 

11410 IF In=lines THEN 11499 

11420 NEXT 29 

11499 RETURN 

11500 REM summ trans 
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11502 GOSUB 4400 

11510 IF pay THEN x#="Summary of Payment 

s" ELSE x#="Summary of Receipts” 

11515 GOSUB 4000: y=1:GOSUB 4050 

11520 t2=0 

11525 IF pay THEN trans=pays:cats=paycat 

s ELSE trans=recs:cats=reccats 

11530 FOR z9=1 TO cats : z2=0 

11535 IF pay THEN x#=paycat#(z9) ELSE x# 

=reccat$(z9) 

11540 FOR z1=1 TO trans 

1154S IF pay THEN xO#=pay#(z1) ELSE xO¥#= 

rec#(z1) 

11550 IF RIGHT#(xO#,2)=LEFT#(x#,2) THEN 

zZ2=22+VAL (MIDE (xO#,11,9)) 

11560 NEXT z1 

11565 IF z2=0 THEN 11590 

11570 GOSUB 4500:FRINT #prdev2,x#; TAB(20 
5 

11580 PRINT #prdev2,USING "######. #4"5 22 
: t2=t2+z2 

11590 NEXT 29 

11600 GOSUB 4500:PRINT #prdev2,"Total";T 

AB(20) 5 

11610 PRINT #prdev2,USING "######. HH" 5 t2 
11620 GOSUB 4400 

11999 GOSUB 4800: RETURN 

12000 REM list cat 

12005 GOSUB 4400 

12010 IF pay THEN x#="Payment Categories 
" ELSE x#="Receipt Categories" 

12015 GOSUB 4000: y=1:GOSUB 4050 

12025 IF pay THEN cats=paycats ELSE cats 

=reccats 

12030 FOR zO=1 TO cats 

12040 IF 20/2=INT(20/2) THEN x=21 ELSE x 

=1:GOSUB 4500 

12060 FRINT #prdev2,TAB(x);:IF pay THEN 

PRINT #prdev2,paycat#(z6)3; ELSE PRINT #p 

rdev2,reccat$ (20) 5 

12070 NEXT 20 

12080 GOSUB 4600 

12499 GOSUB 4800: RETURN 

12500 REM add cat 

12510 IF pay THEN cats=paycats: maxcats=m 
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axpaycats:x#="New Payment Categories" EL 
SE cats=reccats: maxcats=maxreccats: x#="N 
ew Receipt Categories" 

12515 GOSUB 4000: y=1:GOSUB 4050 

12517 PRINT cleosc#;:1n=6 

12520 FOR z0=1 TO cats 

12530 IF zO/2=INT(zO0/2) THEN x=31 ELSE x 
=1l:ln=Intl 

12540 LOCATE x,I1n : IF pay THEN FRINT pa 
ycat#(z0); ELSE PRINT reccat#(z0); 

12560 NEXT 20 

12570 IF cats=maxcats THEN 12900 

12575 IF pay THEN x#="New payment catego 

ry " ELSE x#="New receipt category " 
12580 LOCATE 1,25:FRINT cleol$t+x%#;: t=: 
=15:GOSUB 8000 

12590 IF x1#=""" THEN 12950 

12595 IF LEN(x1#)<2 THEN PRINT bel #;:GOT 

QO 12580 ELSE x1#=UPPER# (x1#) 

12600 FOR z0=1 TO cats 

12605 IF pay THEN xO#=paycat#(z0) ELSE x 

O#=reccat$(z0) 

12607 IF LEFT#(x1#,2) =LEFT#(xO#,2) THEN 
12580 

124610 NEXT z0 

12620 cats=catst+tl:updated=true: IF pay TH 
EN paycat#(cats)=x1# ELSE reccat#(cats)= 
KLE 

12630 GOTO 12517 

12900 IF pay THEN x#="Fayment categories 
all allocated!" ELSE x#="Receipt catego 

ries all allocated!" 

12910 LOCATE 1,25:FPRINT cleol#+x#;:t=1:1 

=0:GOSUB 8000 

12950 IF pay THEN paycats=cats ELSE recc 

ats=cats 

12999 RETURN 

13000 REM del cat 

13010 IF pay THEN cats=paycats:x#="Payme 

nt Category Deletion" ELSE cats=reccats: 

x$="Receipt Category Deletion" 

13015 GOSUB 4000: y=1:GOSUB 4050 

13025 IF cats=Q THEN 123499 

13030 FOR 20=1 TO cats 

13040 IF zO/2=INT(z0/2) THEN x=21 ELSE x 
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=1:GOSUB 4500 

13060 PRINT #5,TAB(x);IF pay THEN PRINT 
#5,paycat#(z0); ELSE FRINT #5,reccat$(z0 
3 

13070 NEXT zO 

13080 LOCATE 1,25:FPRINT "Deleted categor 
y “32t=3:1=2:GOSUB 8000 

13090 IF x1%="" THEN 13499 ELSE x1$=UPPE 
R# (x 1#) 

13100 IF LEN(x1#)<>2 THEN 13080 

13110 FOR z0=1 TO cats:IF pay THEN x#=pa 
ycat$6z0O) ELSE x#=reccat#(z0O) 

13115 IF x1$=LEFTS(x#,2) THEN 123150 
13120 NEXT zO 

13130 GOTO 13080 . 

13150 FOR z1i=z0 TO cats-1 

13160 IF pay THEN paycat#(z1)=paycat#(zl 
+1) ELSE reccat#(z1)=reccat#(z1+1) 

13170 NEXT z1 

13180 cats=cats-1:updated=true: IF pay TH 
EN paycats=cats ELSE reccats=cats 

13190 CLS #5 

13200 GOTO 13025 

13499 RETURN 

13500 REM list meth 

13505 GOSUB 4400 

13510 IF pay THEN meths=paymeths: x#="Pay 
ment Methods" ELSE meths=recmeths: x#="Re 
ceipt Methods" 

13515 GOSUB 4000: y=1:GOSUB 4050 

13530 FOR zO=1 TO meths 

12540 IF z0O/2=INT(z0O/2) THEN x=21 ELSE x 
=1:GOSUB 4500 

13560 PRINT #prdev2,TAB(«x);:IF pay THEN 
PRINT #prdev2,paymeth?(z0); ELSE PRINT # 
prdev2,recmeth$(z0O); 

13570 NEXT z0O 

13580 GOSUB 44600 

13999 GOSUB 4800: RETURN 

14000 REM add meth 

14010 IF PAY THEN meths=paymeths: maxmeth 
s=maxpaymeths: X#="Payments" ELSE meths=r 
ecmeths: maxmeths=maxrecmeths: x#="Receipt 
s" 

14012 GOSUB 4000: y=1:GOSUB 4050 


-- Page 173 -- 


AMSTRAD EXPLORED 


14015 PRINT cleowcts: lowed 

14020 FOR z0=1 TO meths 

14030 IF z20/2=INT(2z0/2) THEN x=21 ELSE x 
=Hlrln=l1n+1 

14040 LOCATE x,1in : IF pay THEN PRINT pa 
ymeth#(z0); ELSE PRINT recmeth¢(z0O); 
14050 NEXT 20 

14060 IF meths=maxmeths THEN 14400 

14062 IF pay THEN «#="New payment method 
" ELSE x#="New receipt method " 

14065 LOCATE 1,25:PRINT cleol#+x#;:t=3:1 
=15:GOSUB 8000 

14070 IF x1¢=""" THEN 14499 

14075 IF LEN(x1#)<2 THEN PRINT bel#;:GOT 
O 14065 ELSE x1#=UPPER?¢ (x1#) 

14080 FOR 20=1 TO meths: IF LEFT#(x1#,2)= 

LEFT$(x#,2) THEN 14065 

14090 NEXT 20 

14100 meths=methst+l:updated=true:IF pay 
THEN paymeths=meths: paymeth# (paymeths) =x 
1$ ELSE recmeths=meths:recmeth#(recmeths 
.=x1F 

14110 GOTO 14015 

14400 CLS#4:PRINT #6,"Methods all alloca 
ted! "5;:t=1:1=0:GOSUB 8000:CLS#é4 

14499 RETURN 

14500 REM del method 

14510 IF pay THEN meths=paymeths: x#="Pay 

ment Methods" ELSE meths=recmeths: x#="Re 
ceipt Methods" 

14515 GOSUB 4000: y=1:GOSUB 4050: 1n=0:G0S 

UB 4800 

14525 IF meths=0O THEN 14999 

14530 FOR z0O=1 TO meths 

14540 IF zO/2=INT(20/2) THEN x=21 ELSE x 

=1:GOSUB 4500 

14560 PRINT #5,TAB(x);:IF pay THEN PRINT 
#5,paymeth#(z0); ELSE PRINT #5,recmeth? 
(20) 5 

14570 NEXT z0O 

14580 LOCATE 1,25:PRINT "Deleted method 
"32t=3:1=2:GOSUB 8000 

14590 IF x1#="" THEN 14999 ELSE x1#=UPPE 

R#(x1¥#) 


-- Page 174 -- 


AMSTRAD EXPLORED 


144600 IF LEN(x1$)<>2 THEN 14580 

14610 FOR z0O=1 TO meths:IF pay THEN x#=p 
aymeth#(z0) ELSE x¢#=recmeth$(z0) 

14615 IF x1#=LEFT#(x#,2) THEN 14650 
14620 NEXT z0O 

14630 GOTO 14580 

14450 FOR z1=z0 TO meths-1 

14460 IF pay THEN paymeth#(z1)=paymethé ( 
z1+1) ELSE recmeth#(z1i)=recmeth$(z1+1) 
14670 NEXT z1 

14680 meths=meths-1:updated=true: IF pay 
THEN paymeths=meths ELSE recmeths=meths 
14690 CLS#5 

14700 GOTO 14525 

14999 RETURN 

15000 REM list so 

15005 GOSUB 4400 

15007 IF screen THEN GOSUB 4200 

15010 x#="Standing Orders": y=1:GOSUB 405 
19) 

15020 LOCATE 1,7:GOSUB 4500:FRINT #prdev 


1,"Account DDMM Amount 
Category" 

15030 x2#=CHR# (242) +CHR# (16) +CHRS (13) 

15040 28=1 


15050 GOSUB 15300 

15055 IF NOT screen THEN 15100 ELSE 1n=0 
15060 CLS#6:PRINT #6,"Use ENTER for more 
> "gift#s" to go back, or CLR to quit "; 
2t=4:1=0:GOSUB 8000:CLS#4 

15070 ON zO GOTO 15080,15250,15100 

15080 REM back 

15090 28=z68-16:1IF z8<1 THEN z8=1 

15095 GOTO 15050 

15100 REM forward 

15110 IF 29<= sos THEN 28=29+1:GOTO 1505 
is) 

15250 REM quit 

15255 IF NOT screen THEN GOSUB 4600 
15260 GOSUB 4300 

15299 GOSUB 4800: RETURN 

15300 REM list so 

15305 CLS #5 

15310 FOR 29=z8 TO sos 

45315 FOR z1=1 TO accounts: IF LEFT#(sot( 
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Z9),1) =LEFT# (acname¢(z1),1) THEN 15320 
152320 NEXT z1 : xo#=LEFT# (so¢(2z9) ,1):GOT 
O 15335 = 

15330 xO0#=acname# (z1) 

15335 GOSUB 4500:FRINT #prdev2,x0#;TAB(2 
2) ;MID¢ (so# (29) ,2,2)5"/"5sMIDS(sot(29) 4, 
25" "5 

15340 PRINT #prdev2,USING “######. ## . 
3 VAL (MID# (so¥#(z9) 56,9) )35 

152350 FOR 2z1=1 TO paycats 

15360 IF RIGHT? (so¥#(z9) ,2)=LEFT# (paycat® 
(z21),2) THEN 15380 

15370 NEXT 21: xO$=LEFT#(paycat#(z1) ,2):G 
OTO 15400 

15380 xO¢=paycat#(z1) 

15400 PRINT #prdev2,xO# 

15410 IF ln=lines THEN 15499 

15420 NEXT 29 

15499 RETURN 

15500 REM add so 

15510 GOSUB 4000:x#="Standing Orders":y= 
1:GOSUB 4050 

15520 IF sos=maxsos THEN 15950 

15530 LOCATE 1,46:FRINT cleol#+"Account " 
3:t=3:1=1:GOSUB 8000: IF x1#="" THEN 1599 
9 ELSE x1#=UPPER# (x 1#) 

15540 FOR zO=1 TO accounts: IF LEFT#(x1$, 
1) =LEFT# (acname#(z0),1) THEN 15580 

15545 NEXT z0O: GOTO 155230 

15580 xO¢=x 1$+SPACE¥ (15) 

15590 LOCATE 1,6:PRINT cleol#+acname#(z0 
) 

15600 LOCATE 1,7:FRINT "DDMM Amount Cc 
ategory":1n=8 

15610 CLS#6:PRINT #6,"Enter date. (Month 
can be blank)"; 
15612 LOCATE 1,1n:t=2 
#6: IF LEN(x1#)=0 OR x 
QO 

15615 IF RIGHTS (x1#,2)="00" THEN x1#=LEF 
TH(K1$,2)+"  " 

15420 MID$(xO#,2,4)=x1$ 

15630 LOCATE 6,1n:PRINT cleol$;:t=2:1=9: 
GOSUB 8000:IF z0=0 THEN 15610 


:1=4:GOSUB 8000:CLS 
1¢#="0000" THEN 1550 
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15640 LOCATE 46,1n:PRINT cleol$;USING "## 
#HHH. HH" 5 205 

15645 MIDS (x0$,6,7) =MIDS(STR$ (20) +" 

",2,9) 

15650 LOCATE 16,1n:t=3:1=2:GOSUB 8000 
15660 IF xi¢=""" THEN 15630 ELSE x1#=UPPE 
R$(x1$) 

15670 FOR zO=1 TO paycats 

15680 IF LEFTS(x1#,2) =LEFTS (paycat#(z0), 
2) THEN 15700 

15690 NEXT zO : GOTO 15650 

15700 LOCATE 16,1n:FRINT paycat$(z0) 
15710 MID#(xO#,15,2)=x1¢ 

15720 sos=sos+1: so (sos) =x0$:updated=tru 
e 

15730 IF sos=maxsos THEN 15950 

15740 IF in=23 THEN GOSUB 4100:GOTO 1550 
ce) 

15750 In=in+1:GOTO 15610 

15950 CLS#46:PRINT #6,"All standing order 
s allocated! "3:t=1:1=0:GOSUB 8000:CLS#64 
15999 RETURN 

146000 REM del so 

16010 GOSUB 4200 

16020 x#="Standing Order Deletion": y=1:G6 
OSUB 4050 

16030 LOCATE 1,7:x2$=CHR$ (242) +CHR#(146) + 
CHR# (13) +CHR# (240) +CHRE (241) +"Dd" 

16040 PRINT "Account Date 

Amount Category" 

16050 z8=1:GOSUB 4800 

16060 GOSUB 15300: 1n=0:ptr=8 

16070 LOCATE 57,ptr:PRINT " <="; 

16080 CLS#6:PRINT #6,"Use ENTER, CLR or 
"SLFT$3;" to move, “s;up#;" or "sdown$;" t 
o select, D to delete. ";:t=4:1=0:GOSUB 
8000: CLS#46 

16090 ON zO GOTO 146100, 146499,16200, 146300 
716300, 16400,16400 

16100 z28=z8-16: IF z8<1 THEN z8=1 

16110 GOTO 160460 

16200 IF 29% sos THEN z8=z9+1:GOTO 16060 
ELSE 16499 

16300 LOCATE 57,ptr:PRINT “ "5 

16310 IF zO=4 THEN ptr=ptr-1 ELSE ptr=pt 
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r+1 

1464320 IF ptr<8 THEN ptr=8 

16330 IF ptr>23 THEN ptr=22 

16340 IF ptr-7>(sos—-z8+1) THEN ptr=ptr-1 
16350 GOTO 14070 

16400 2z1=z8+ptr-8 

16410 FOR 29=z1 TO sos-l 

16420 sot (29) =soF (2941) 

16430 NEXT z9 

16440 sos=sos-1:updated=true 

16450 GOTO 16060 

16499 GOSUB 4200 : RETURN 

16500 REM con so 

16510 GOSUB 4200 

16520 GOSUB 4000:x#="Standing Order Conf 
irmation": y=1:GOSUB 4050 

16530 LOCATE 1,7: x2$=CHRS (242) +CHRE (16) + 
CHR# (13) +CHR# (240) +CHR# (241) 4+"Cc" 


16540 PRINT "Account Date 
Amount Category Month Con 
firmed" 


16545 IF pays=maxpays THEN 14974 

16550 28=1:GOSUB 4800 

16540 GOSUB 15200:1n=0:ptr=8 

16570 LOCATE S7,ptr:PRINT cleol#;" <="5 
16580 CLS#4:PRINT #6,"Use ENTER, CLR or 
"SLFT#5;" ta move, “s;up#3;" or "sdownt;" t 
o select, C to confirm. "3: t=4:1=0: GOSUB 
8000: CLS#6 

16590 ON 20 GOTO 16600, 16999,16700, 14800 
116800, 16900, 16900 

16600 28=z8-146: IF z8<1 THEN z8=1 

16610 GOTO 165460 

16700 IF 29% sos THEN z8=29+1:GOTO 1465640 
ELSE 16999 

16800 LOCATE S7,ptr: PRINT " we 

16810 IF zO=4 THEN ptr=ptr-1 ELSE ptr=pt 
r+ 

16820 IF ptr<8 THEN ptr=8 

16830 IF ptr>23 THEN ptr=235 

16840 IF ptr-7>(sos-z8+1) THEN ptr=ptr-1 
16850 GOTO 16570 

16900 z1=z8+ptr-8:LOCATE S8,ptr:PRINT cl 
eol$; 

16910 xO#=so$(z1):x#=STRINGS(21," ")sMID 
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$(x$,1,5) sLEFTS (xO0$,1)+"ST" 

16915 x4#=MID$(xO#,2,4):IF RIGHTS (x4#,2) 

<>" " THEN 16930 

16917 PRINT #6,"Enter month "; 

16920 LOCATE 58,ptr:t=2:1=2:GOSUB 8000:C 

LS#6:IF xi¢="" THEN 14570 

16925 MID (x4$,23,2) =LEFT# (x1$+"00",2) 

16930 MID#(x$,4,4)=x48 

16932 PRINT #6,"Confirm amount to be pai 

d Ws 

16935 LOCATE 465,ptrit=2:1=9: xS#=MID$(x0S 

14,9):GOSUB 8000:CLS#6 

16940 IF z0=0 THEN LOCATE S8,ptr:PRINT c 

leol#3;:GOTO 146570 

16950 MID#(x$,11,9) =MIDS(STRE(zZO) +" 
"\2,9) 

16960 MID (x#,20,2) =RIGHTS# (xO0¥,2) 

16970 pays=pays+1:updated=true: pay? (pays 

=x 

16972 IF pays<maxpays THEN 16570 

16974 CLS#6:PRINT #6,"All payments alloc 

ated!";:t=1:1=0:GOSUB 8000:CLS#64 

16999 GOSUB 42300: RETURN 

17000 REM list xfers 

17010 GOSUB 4400 

17015 IF screen THEN GOSUB 4200 

17020 x#="Transfers between Accounts": y= 

1:GOSUB 4050 

17050 LOCATE 1,7:GOSUB 4500:PRINT #prdev 

1,"From Account Date No. Aa 

mount To Account" 

17040 x2%=CHR#¢ (242) +CHR¢ (16) +CHR¥ (13) 

17050 z6=1 

17055 IF NOT screen THEN 17100 

17060 GOSUB 172300 

17070 CLS#4:PRINT #4,"Use ENTER for more 

» “slft%;" to go back, or CLR to quit "; 

#t=4:1=0:GOSUB 8000:CLS#6 

17080 ON zO GOTO 17085,17250,17100 

17085 REM back 

17090 z8=268-16:I1F 28<1 THEN z8=1 

17095 GOTO 17060 

17100 REM forward 

17110 IF 29<= xfers THEN 28=29+1:GOTO 17 

060 
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17120 IF NOT screen THEN GOSUB 4600 
17250 REM quit 

17299 GOSUB 4200:GOSUB 4800: RETURN 

17300 REM list xfers 

17305 CLS#5 

17310 FOR 29=z8 TO xfers 

17312 xSaxfer$(z9) 

17315 FOR 21=1 TO accounts: IF LEFT#(x$,1 
)=LEFT$ (acname$(z1),1) THEN 17330 

17320 NEXT z1 : xo#=LEFT$(x$,1)+"2727": GOT 
0 17335 

17330 xO0$=acname$ (zi) 

17335 GOSUB 4500:PRINT #prdev2,x0$; TAB(2 
2) 5;MID$(x$,2,2)35"/"3MIDS(x#,4,2)5" "5 
17340 PRINT #prdev2,MID$(x#,6,3)3;" " US 
ING “#####4. HH "Ss VAL (MIDS (x$,9,9))5 
17345 FOR zi =1 TO accounts 

17350 IF RIGHT#(x#,1)=LEFT# (acname#(z1), 
1) THEN 173645 

17360 NEXT z21:xO$=RIGHT# (xfer$(z9) ,1)+"? 
?"3;GOTO 17370 

17365 xO¢=acnames (z1) 

17370 FRINT #prdev2,x0# 

17400 IF In=lines THEN 17499 

17410 NEXT 29 

17499 RETURN 

17500 REM add xfer 

17510 GOSUB 4000:x#="Transfer Addition": 
y=1:GOSUB 4050 

17520 IF xfers=maxxfers THEN 17950 

17530 LOCATE 1,6:PRINT cleosc#+"From Acc 
ount “"3st=3:l1=1:GOSUB 8000: IF x1i¢=""" THE 
N 17999 ELSE x1%=UPPER$(x1$) 

17540 FOR zO=1 TO accounts:IF x1#=LEFT¢( 
acname$(z0),1) THEN 17580 

17545 NEXT zO: GOTO 17530 

17580 x0$=x1$+SPACE¢ (17) 

17590 LOCATE 1,4:PRINT cleol#;"From Acco 
unt: "sacname$¢(z0) 

17600 PRINT "DDMM No. Amount To Accou 
nt":1n=8 

17610 LOCATE 1,25:PRINT cleol#+"Enter da 
te. (DDMM) "; 
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17612 LOCATE 1i,in:PRINT cleol$;:t=2:1=4: 
GOSUB 8000: IF LEN(x1#)=0 THEN 17530 
17620 MID#(x0$,2,4)=x1t 

17625 LOCATE 1,25:PRINT cleol#;"Enter op 
tional transaction no."; 

17630 LOCATE 6,1in:t=3:1=2:GOSUB 8000 
17635 MIDS (x0F,6,35) =x1t 

17640 LOCATE 1,25:PRINT cleol#;"Enter am 
ount"; 

17645 LOCATE 10,in:PRINT cleol#;:t=2:1=9 
:GOSUB 8000 

17650 IF z0=O THEN 17610 

174660 MID#(x0$,9,9) =x1F 

17670 LOCATE 1,25:FRINT “Enter Account c 
ode"; 

17680 LOCATE 21,1ln:t=3:1=1:GOSUB 8000 
17690 IF x1#=""" THEN 17640 ELSE xi#=UPFE 
R# (x14) 

17695 IF x1#=LEFT#(xO¢,1) THEN 176480 
17700 FOR z1=1 TO accounts 

17710 IF xi#=LEFT# (acname#(z1),1) THEN 1 
7730 

17720 NEXT z1i:GOTO 174680 

17730 MID#(xO0#,18,1)=x1s 

17740 LOCATE 21,1n:FRINT acname$(z1) 
17750 xfers=xfers+1l:updated=true: xfer (x 
fers) =x0$ 

17760 IF xfers=maxxfers THEN 17950 

17770 IF in=23 THEN GOSUB 4100:GOTO 1753 
(0) 

17780 In=1n+1:GOTO 17610 

17950 CLS#6:PRINT #6,"All transfers allo 
cated! "s3:t=1:1=0:GOSUB 8000:CLS#6 

17999 RETURN 

18000 REM del xfer 

18010 GOSUB 4200 

18020 x#="Transfer Deletion":y=1:GOSUB 4 
O50 

18030 LOCATE 1,7: x2£=CHRS (242) +CHR# (16) + 
CHR# (135) +CHR# (240) +CHR# (241)+"Dd" 

18040 PRINT “From Account Date 
No. Amount To Account" 

18050 z8=1:GOSUB 4800 

18060 GOSUB 17300: 1n=O:ptr=8 

18070 LOCATE 67,ptr:PRINT " <="5 
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18080 CLS#46:PRINT #6,"Use ENTER, CLR or 
"SLFT$;" to move, “sup$;" or “sdowns;" t 
o select, D to delete. “3:t=4:1=0:GOSUB 
8000: CLS#6 

18090 ON zO GOTO 18100,18499, 18200, 18300 
»18300,18400, 18400 

18100 z8=z8-16:I1IF z8<1 THEN z8=1 

18110 GOTO 180460 

18200 IF z9<X xfers THEN 28=z9+1:GOTO 180 
60 ELSE 18499 

18300 LOCATE 47,ptrs:PRINT " we 

18310 IF zO=4 THEN ptr=ptr-1 ELSE ptr=pt 
r+1 

18320 IF ptr<8 THEN ptr=8 

18320 IF ptr>23 THEN ptr=23 

18340 IF ptr-7>(xfers-z8+1) THEN ptr=ptr 
-1 

18350 GOTO 18070 

18400 21=z8+ptr-8 

18410 FOR 29=z1 TO xfers-1 

18420 xfer$(z29)=xfer$(z9+1) 

18430 NEXT z9 

18440 xfers=xfers-1:updated=true 

18450 GOTO 18060 

18499 GOSUB 4300 : RETURN 

18500 REM new period 

18510 IF NOT updated THEN 18400 

18520 CLS#4:PRINT #6,"Save old file befo 
re transfering."53:t=1:1=0:GOSUB 8000:CLS 
#4:GOTO 18999 

18600 GOSUB 7500 

18610 FOR zO=1 TO accounts:balo(z0O)=balc 
(20) :xfers=0: pays=0:recs=0: balc (z0) =O: NE 
XT zO 

18620 f$="new file":GOSUB 2500 

18999 RETURN 

19000 REM adj o/b 

19010 GOSUB 4000 

19020 LOCATE 1,6:PRINT cleosc$;:CLS#6:FPR 
INT #6,"Account Code "53:t=3:1=1:GOSUB 80 
00: CLS#6& 

19030 IF x1i#="" THEN 19499 ELSE x1$=UPPE 
R$ (x 1%) 

19040 FOR z9=1 TO accounts 

19050 IF x1#=LEFT# (acname#(z29),1) THEN 1 
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9070 

19060 NEXT z9:GOTO 19020 

19070 LOCATE 1,6:PRINT cleosc$#+acname$ (z 
9); TAB(22)5; USING “ditt. #4" 5 bala(z9) 
19080 CLS#46:PRINT #6,"New Opening Balanc 
e";:LOCATE 22,7:t=2:1=9:GOSUB 8000: CLS#6 
19090 IF t=-S THEN 19499 ELSE balo(2z9)=z 
O:updated=true:GOTO 19020 

19499 RETURN 
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INDEX 
AFTER Command 19 
Amstrad Technical Manual 6,29,123 
Animation 81 
ASDR 59 
Assembler 109 
Assembler Subroutines 114 
BASIC, Introduction 6 
BASIC Commands, see individual entries. 
Block Graphics 35 
Bourree Tune 71 
Buffer, Keyboard 28 
Cassette Buffers 15 
Cassette File Handling 11 
Cassette Unit 7 
CAT command 13 
Chaining Programs 13 
Chromatic Scale 55 
Circles 40 
CLG Command 38 
Clock Program 17 
Colours, Logical and Physical 33 
Colour Choices 8,29 
DI Command 18,96 
DRAW Command 38 
EI Command 18,96 
ENT Command 51,61,77 
ENV Command 51,59,77 
EVERY Command 16 
Expansion of System 9 
Expansion Token 26 
External Commands 20 
FLUSH bit af 
Foreign Characters 45 
Frame Flyback 81 
Future Expansion 20 
Ghosts in a Bottle Game 98 
God Save The Queen 49 
Graphics, Animation 81 
Graphics, Block 35 
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Graphics, Commands 38 
Graphics Ink Mode 84 
Graphics, Line 36 
Graphics off the screen 41 
Graphics Planes 84 
Graphics Screen 36 
Handel Bourree Wet 
Harmony 64 
HIMEM 14 
Home Accounting Program, Design 133 
Capacities 140 
Instructions 138 
Internals 151 
Hungry Heffalump Game 90 
INK Command 31 
Input Handler 136 
Integer Parameters 120 
Interrupts, System 16 
Joystick 124 
Jump Blocks 123 
KEY Command 26 
KEY DEF Command 25 
Key Redefinition 25 
Keyboard Buffer 28 
Keyboard, Auto-repeat 7 
Function Keys 7 
Line Graphics 36 
LOCATE Command 44 
Logical Colours 33 
MEMORY Command 14 
MODE Command 30 
MOVE Command 38 
Multitasking 15 
Music Stave 57 
Musical Judgement 74 
Musical Scales 49,55 
Operating System Routines 123 
ORIGIN Command 39 
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PAPER Command 
Parameter Types 
Parameters 

Pascal 

PEN Command 
Physical colours 
Piano Keyboard 
PLOT Command 
Program Verifying 
Program Chaining 


RAM Layout 

Real Number Parameters 
RELEASE Command 

REMAIN Command 

ROM Paging 

ROMS, Sideways 


Screen 
Screen 
Screen 
Screen 
Screen 
Sound 
SOUND Command 

Sound Effects 

Sound Queves 

Sound Synchronisation 

SPEED KEY Command 

SQ() Function 

String Parameters 

Structured Programming 

Subroutine Example 

Subroutine Parameter Passing 
SYMBOL AFTER Command 

SYMBOL Command 

Synchronisation of Sound Channels 
System Interrupts 


Design 
Memory Area 
Menu Design 
Refresh 
Windows 


TAG Command 
TAGOFF Command 
Technical Manual, 
Telephone Sound 
TEST Command 

Text Screen 
Transparency 

TXT RD CHAR Routine 


Amstrad 


User Characters 
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32 
118 


31 
33 
56 
38 
13 
13 


5,14,110 
120 

77 

19 

6 

9 


135 
5,29,41,83 
134 
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Verifying Programs 
Vibrato 


Wheels Program 
WINDOW Command 
Windows 

Windows on Screen 


ZEN Assembler 
ZEN Facilities 
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This superb book is designed to let every CPC 
464 user, at what ever level, get the most from 
his computer. After an introductory Section on 
the special Basic features, the book looks 
in depth at the excellent sound and graphic 
facilities including: 


® Animation @Windows ® Character sets 
® Multitasking ®3 Voice Tunes 
® MC routines from Basic 
@® Use of Zen @Use of O/S 
® Sample programs 
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